R Programming Peer Review Assignment Final