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