Added six R code files and four png files