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 DataLab