Code finalized.  Need to polish presentation
Polished output put into RMarkdown