R assignment 2 homefork