adding R code and png files