plot3.R

Copy from plot2.R