Added R code and png files of plots