Update PLOT1.R