adding CodeBook and R script