First draft of plot4.R.
Added the plot created by the plot4 script.
Cleaned up code.