Added code for plot1.R and image file