R code to Peer assignment 1
R Markdown and html file