R script and tidy dataset