plot3 R code