Initial commit of R script and codebook