Update model.R