uploaded R script and tidy dataset