Updated the R markdown file for project 1 submission