Adding R script and CodeBook