Added plot3.R
Added plot4.R