## Fitting a logistic regression model
model1 <- multdrc(number/total~dose, weights=total, fct=logit(), data=earthworms)
anova(model1) # testing againsts more general one-way model
## Fitting an extended logistic regression model where the upper limit is estimated
model2 <- multdrc(number/total~dose, weights=total, fct=logit(fixed=c(NA, NA, 0, NA)), data=earthworms)
anova(model2) # "goodness-of-fit test"
## Comparing model1 and model2 (can model2 be reduced to model1?)
anova(model1, model2, test="Chisq")
rm(model1, model2)
Run the code above in your browser using DataLab