ReadMe update
add R script
add CodeBook