plot1.R (assignment 1)