Add plot3.R and output