Last save before some serious rewriting

I've finished the swirl course and want to try rewriting this to
leverage dplyr and tidyr, but want to save first.