added plot3.R & plot4.R