Df sapplysplitprotest ginichange79to0901 mean narm

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: s(fitted(lm1) ~ GiniChange79to09.01, data = lm1$model, pch = 19) ## Line of means Class 17 — Political Science 230 Formalizing Uncertainty with Standard Errors and (Re)Sampling Distributions— October 22, 2013— 1 protmeans <- with(nes08gini.df, sapply(split(protest, GiniChange79to09.01), mean, na.rm = TRUE)) qq q qqq q q qqq qq q qqq q q q q q q qq q qq q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q qq q q q q q q q q q q q q q q q q q q q q q q q q q qq qq q qq q q q qq q qq q qq qq qq qq q q qq qq q qq qq q qq qq qq q q qq q qq qq q q q q q q q q q q q q q q q qq q q qq q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q 0.6 q q q q q 0.2 q −0.2 jitter(protest) 1.0 lines(as.numeric(names(protmeans)), protmeans, type = "b", col = "red") qq q q q q q q q q qq q q q qq qq q q qq q qqq q qqq q q qq qq qqq qqq q qqq qqq qq q qq q q q qqq qq q q qq q qq q qqqqqq q q q qq q q q q q q q q qqq q q qq q q q qq q qq q qqqqqqq q qqqq q qq q q q q qqqq q qqq q q qq qq q q qqqqqq q qq q q qq q q qq q qqq q q q q qqq q q q qq qq qqq qqq qqq q q q qq q qqq q q q qqqq q q qq q q q q q q q q qqq q q q q qq qq qqq q q qqqq q qq q qq q qq qqq q q qq q q q q q q q q q q q q q q q q q q q q q q q 0.0 q q q q q q q q q q q q q q q q q q q q q q q q q qq qq q qq qq q q qq q q q 0.2 q q q q q q q q q q q q q q q q q q q q q q q q q qq qq q qq q q q qq q q q qq qq q q q qq q qq q q q qq q q q q qq q qq q q q q q qq q q 0.4 q qq qq qq qq qq q qq qq q qq qq qq qq q qq q q q q q q q q q q q q q q q q q qq q qq q q q q q qq qq q q q 0.6 q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q q 0.8 GiniChange79to09.01 Class 17 — Political Science 230 Formalizing Uncertainty with Standard Errors and (Re)Sampling Distributions— October 22, 2013— 2 1 ## Line of means ## with(nes08gini.df,plot(sort(unique(GiniChange79to09.01)),sapply(split(protest,GiniChange79to09.01),mean,na.rm=TRUE),type='b')) #$ 5. Now, what we’ve just shown is the relationship between state-level change in income inequality and indiv...
View Full Document

Ask a homework question - tutors are online