R script that will create tidy data set.