plot3.R corrected