Adding the R script and it's code book