abdata <- data.frame(y = 0:7, w = c(182, 41, 12, 2, 2, 0, 0, 1))
fit1 <- vglm(y ~ 1, gaitdpoisson(a.mix = 0),
data = abdata, weight = w, subset = w > 0)
specials(fit1) # All three sets
altered(fit1) # Subject to change
inflated(fit1) # Subject to change
truncated(fit1) # Subject to change
is.altered(fit1)
is.inflated(fit1)
is.truncated(fit1)
Run the code above in your browser using DataLab