adding plot1.R