edited plot1.R and added plot2