Added the R scripts and png files