upload week1 assignment

4 .R files and 4 corresponding plots