Create PLOT3.R