Added the R script and the data set.