## Comparing a four-parameter Weibull type 1 model
## to a reduced three-parameter Weibull type 1 using an F test
ryegrass.m1 <- drm(rootl ~ conc, data = ryegrass, fct = W1.4())
ryegrass.m2 <- drm(rootl ~ conc, data = ryegrass, fct = W1.3())
anova(ryegrass.m2, ryegrass.m1)
# reduction to 'W1.3' not possible (highly significant)
anova(ryegrass.m2, ryegrass.m1, details = FALSE)
# not showing details
Run the code above in your browser using DataLab