added 4 R scripts and 4 pngs of plot to complete lab