adding R script and tidy data set file