Completed plot2.R script and added associated plot