R Code for Getting and Cleaning Data Project