Create model_helpers

Hadley's plus several custom helper R functions for modeling