Create modeling.R