Getting and Cleaning Data

R script