Tidy data set and R script