# NOT RUN {
data(medpar)
irls.poi <- irls(los ~ hmo + white,
family = "poisson",
link = "log",
data = medpar)
summary(irls.poi)
irls.probit <- irls(died ~ hmo + white,
family = "binomial",
link = "probit",
data = medpar)
summary(irls.probit)
# }
Run the code above in your browser using DataLab