added files with R code and png figures