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