Plots and R code for Ex. Data Assignment 1