Update RepData_PeerAssessment1.Rmd