add 4 R code files and 4 png files