# Create a simple model
Model <- estimatePopsize(
formula = capture ~ .,
data = netherlandsimmigrant,
model = ztpoisson,
method = "IRLS"
)
plot(Model, "rootogram")
# We see a considerable lack of fit
summary(marginalFreq(Model), df = 1, dropl5 = "group")
Run the code above in your browser using DataLab