Submitted plot3.R