data(steve)
## Not run:
# steve.glm <- glm(Hit.or.Miss ~ Distance, family = binomial, data =
# steve)
# plot(steve, main = "Steve's basketball data", pch = 16)
# lines(steve$Distance, predict(steve.glm, type = "response"))## End(Not run)
Run the code above in your browser using DataLab