Added Rscripts and plots