add R code and png files