# NOT RUN {
data(peace)
attach(peace)
require(pscl)
## Table 7.6
M3 <- zeroinfl(OUTISS ~ PP + INTCIV + AMN + PRIS + FED + COMIMP + REAFFIRM | PKO, data=peace)
summary(M3)
out.table.count <- cbind(summary(M3)$coef$count[,1:2],
summary(M3)$coef$count[,1] - 1.96*summary(M3)$coef$count[,2],
summary(M3)$coef$count[,1] + 1.96*summary(M3)$coef$count[,2])
out.table.zero <- cbind(summary(M3)$coef$zero[,1:2],
summary(M3)$coef$zero[,1] - 1.96*summary(M3)$coef$zero[,2],
summary(M3)$coef$zero[,1] + 1.96*summary(M3)$coef$zero[,2])
out.table.count
out.table.zero
# }
Run the code above in your browser using DataLab