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