Update model.functions.R