Added R script and plot files