Added R script that outputs tidy data