## Not run:
# library(MASS)
# library(flexmix)
# data(fishing)
# attach(fishing)
# fmm_pg <- flexmix(totabund~meandepth + offset(log(sweptarea)), data=rwm1984, k=2,
# model=list(FLXMRglm(totabund~., family="NB1"),
# FLXMRglm(tpdocvis~., family="NB1")))
# parameters(fmm_pg, component=1, model=1)
# parameters(fmm_pg, component=2, model=1)
# summary(fmm_pg)
# ## End(Not run)
Run the code above in your browser using DataLab