added R code for plot3
added plot3.png