R code

R code to create a tidy dataset