assignment1 R files and plots