Added the R script and codebook to the repository