Added the R file and tidy data set