added plot3.R