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