Update PLOT2.R