R Programming Peer assignment