Create model.R