added a R script