Update PLOT3.R