add R script and code book