Added 4 R code files and 4 plots