# NOT RUN {
if (require("pscl", quietly = TRUE)) {
data("bioChemists")
model <- zeroinfl(art ~ fem + mar + kid5 | kid5 + phd, data = bioChemists)
p_value(model)
p_value(model, component = "zi")
}
# }
Run the code above in your browser using DataLab