Create R script a