R Code for Getting and Cleaning Data Peer Assessment