data("NMES1988", package = "AER")
walsNB(visits ~ health + chronic + age + gender | I((age^2)/10) +
married + region, data = NMES1988, prior = weibull(),
controlInitNB = controlNB(initMASS = FALSE, restricted = TRUE))
Run the code above in your browser using DataLab