This is the R script file to create the tidy dataset