social |> group_by(messages) |> summarize(turnout = mean(primary2004), hhsize = mean(hhsize)) social |> group_by(messages) |> summarise(turnout = mean(primary2008))
