adding R code and png images