Code Book for R script