All the data and the R script