Update slope.model.constructors.R

Change the formula for AcuteModel$effect