add plot3.R
add plot 4
Enhancement