adding the R script