if (FALSE) {
example(gaitdpoisson)
gaitpfit2 <- vglm(y1 ~ 1, crit = "coef", trace = TRUE, data = gdata,
gaitdpoisson(a.mix = a.mix, i.mix = i.mix,
i.mlm = i.mlm, eq.ap = TRUE, eq.ip = TRUE,
truncate = tvec, max.support = max.support))
plotdgaitd(gaitpfit2)
}
Run the code above in your browser using DataLab