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 DataCamp Workspace