# \donttest{
data(seizures)
head(seizures)
star <-list(phi=1, beta0=1, beta1=1, beta2=1, beta3=1)
mod1 <- fit.MNB(formula=Y ~ trt + period +
trt:period + offset(log(weeks)), star=star, dataSet=seizures)
mod1
seizures49 <- seizures[-c(241,242,243,244,245),]
mod2 <- fit.MNB(formula=Y ~ trt + period +
trt:period + offset(log(weeks)), star=star, dataSet=seizures49)
mod2
# }
Run the code above in your browser using DataLab