# NOT RUN {
data("dmft", package = "flexmix")
dmft_flx <- initFlexmix(End ~ 1, data = dmft, k = 2,
model = FLXMRglmfix(family = "poisson",
fixed = ~ Gender + Ethnic + Treatment))
# }
Run the code above in your browser using DataCamp Workspace