Created a new R script