Add the R script to collect and clean data