R-script and Code Book updated