data("dmft", package = "flexmix")
Model <- FLXMRziglm(family = "poisson")
Fitted <- flexmix(End ~ log(Begin + 0.5) + Gender + Ethnic + Treatment,
model = Model, k = 2 , data = dmft,
control = list(minprior = 0.01))
summary(refit(Fitted))
Run the code above in your browser using DataLab