added 4 png files and R code