minor updates to plot1.R