R script created