R Programming Peer Assignment