Added R scripts and png files produced