Create RepData_PeerAssessment1.Rmd