Homework2 R