adding .R script converted from .Rmd using rmd2rscript