R Project:Getting and Cleaning Data