# NOT RUN {
abdata <- data.frame(y = 0:7, w = c(182, 41, 12, 2, 2, 0, 0, 1))
fit1 <- vglm(y ~ 1, gaitpoisson.mix(inflate = 1), abdata, weight = w,
subset = w > 0)
altered(fit1)
inflated(fit1)
truncated(fit1)
specials(fit1) # All three sets
# }
Run the code above in your browser using DataLab