added plot1.r file