# 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")