Assignment 1

4 plots and R scripts to produce them