R script and Code Book updated