Creation of R script and tidydata set