Added plot4

Added plot4.R and plot4.png.  Still need to get the par function to
write to the png

Edited the function names in each .R file to the spec