RepData Peer Assessment 1

Now knitted correctly in R console