added the R scripts and png files