Added R script and results