added R script to analyse tidydata