Added corrected Plot3 R code, and plot