# NOT RUN {
example(gaitpoisson)
gaitpfit2 <- vglm(y1 ~ 1, crit = "coef", trace = TRUE, data = gdata,
gaitpoisson(alt.mix = a.mix, inf.mix = i.mix,
inf.mlm = i.mlm, eq.ap = TRUE, eq.ip = TRUE,
truncate = tvec, max.support = max.support))
plotdgait(gaitpfit2)
# }
Run the code above in your browser using DataLab