Added 3 plots and 4 R scripts