assignment 1

4 r files, 4 plots