adding plot1.R code