adding plot3.R