Added R script, CodeBook, and README