data(bioChemists)
zip <- zeroinfl(count=art ~ .,
x = ~ fem + mar + kid5 + phd + ment,
z = ~ fem + mar + kid5 + phd + ment,
data=bioChemists,trace=TRUE)
summary(zip)
zinb <- zeroinfl(count=art ~ .,
x = ~ fem + mar + kid5 + phd + ment,
z = ~ fem + mar + kid5 + phd + ment,
dist="negbin",
data=bioChemists,trace=TRUE)
summary(zinb)
Run the code above in your browser using DataLab