adding rscript