data(bioChemists)
zip <- zeroinfl(count=art ~ .,
x = ~ fem + mar + kid5 + phd + ment,
z = ~ fem + mar + kid5 + phd + ment,
data=bioChemists,trace=TRUE)
newdata <- expand.grid(list(fem="Men",
mar="Married",
kid5=1,
phd=3.103,
ment=0:77))
yhat <- predict(zip,newdata=newdata,
se.fit=TRUE,MC=2500)
plot(x=newdata$ment,
y=yhat$yhat,
xlab="Mentor Articles",
ylab="Predicted Counts",
ylim=range(zip$y),
type="n")
polygon(x=c(newdata$ment,rev(newdata$ment)),
y=c(yhat$lower,rev(yhat$upper)),
border=FALSE,
col=gray(.75))
lines(x=newdata$ment,
y=yhat$yhat,
lwd=2)
rug(quantile(bioChemists$ment,c(.05,.50,.95)))
title("Predicted Counts and 95
Run the code above in your browser using DataLab