data(dead.beetles)
## Not run:
# with(dead.beetles, plot(Dose, died / tested))
# dead.glm <- glm(cbind(died, tested-died) ~ Dose, family = binomial, data = dead.beetles)
# lines(dead.beetles$Dose, predict(dead.glm, type = "response"))## End(Not run)
Run the code above in your browser using DataLab