Initial save

The R markdown file for the first peer assignment.