Added plot3.R