add Rscripts