To get the data and R code for the red state, blue-state example, go to http://www.nowpublishers.com/article/Details/QJPS-6026 and click on Supplementary Information, then on Replication Data.