data("fabricfault", package = "flexmix")
fabricMix <- initFlexmix(Faults ~ 1, data = fabricfault, k = 2,
model = FLXMRglmfix(family = "poisson",
fixed = ~ log(Length)),
nrep = 5)
Run the code above in your browser using DataLab