# NOT RUN {
warp.lm <- glmmTMB(breaks ~ wool * tension, data = warpbreaks)
salamander1 <- readRDS(system.file("example_files","salamander1.rds",package="glmmTMB"))
if (require(emmeans)) {
emmeans(warp.lm, poly ~ tension | wool)
emmeans(salamander1, ~ mined, type="response")
emmeans(salamander1, ~ mined, component="zi", type="response")
}
if (getRversion() >= "3.6.0") {
if (require(car)) {
Anova(warp.lm,type="III")
Anova(salamander1)
Anova(salamander1, component="zi")
}
if (require(effects)) {
plot(allEffects(warp.lm))
plot(allEffects(salamander1))
}
}
# }
Run the code above in your browser using DataLab