plot1.R submission