Adding R script and tidy data