created an R script