R code to produce tidy data set from given data
Tidy data set produced in text format