R Scripts for Getting and Cleaning Data Project