The data for this analysis can be found here.
All R code for this and other projects can be found on my GitHub site.