# NOT RUN {
# Descriptive Statistics
summary(lowerCombined)
# Correlate Senators' DW-NOMINATE Scores with Public Opinion Ideology
cor(lowerCombined$np_score,lowerCombined$krige.lower,use="complete.obs")
# Plot Legislators' DW-NOMINATE Scores against Public Opinion Ideology
plot(y=lowerCombined$np_score,x=lowerCombined$krige.lower,
xlab="District Ideology (Kriging)", ylab="Legislator Ideology (Shor & McCarty)",
main="State Legislatures: Lower Chambers", type="n")#
points(y=lowerCombined$np_score[lowerCombined$party=="R"],
x=lowerCombined$krige.lower[lowerCombined$party=="R"],pch=".",col="red")
points(y=lowerCombined$np_score[lowerCombined$party=="D"],
x=lowerCombined$krige.lower[lowerCombined$party=="D"],pch=".",col="blue")
# }
Run the code above in your browser using DataLab