Adding R script and codebook