Clean up

Broke modeling1.R file into separate components. Added comments