add R script and cookboook