adding PNGs and R code