updates to plot1.R