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