plot4.R (assignment 1)