Update model.r