Upload of R script and output 18/12/2014