adding R script and code book