plot3.R (ASSIGNMENT 2)