# Chapter 4: Making Comparisons
library(poliscidata) # Loads R companion package in session
# MEAN COMPARISON ANALYSIS
cat("Mean Comparison Table:\n")
compmeans(nes$ft_hclinton, nes$pid_x, nes$wt, plot=F)
plotmeansC(nes, ~ft_hclinton, ~pid_x, ft_hclinton ~ pid_x, w = ~wt,
xlab="Party identification", ylab="Ratings of Hillary Clinton",
main="Ratings of Hillary Clinton,\n by Party Identification")