Adding the R file and the tidy data set