added code book and R script