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