added tidy dataset and R script