Added 4 png plots and the R code that generated them.