CodeBook and R code