Updated plot3.R.  Added plot4.R