# NOT RUN {
warp.lm <- glmmTMB(breaks ~ wool * tension, data = warpbreaks)
if (require(emmeans)) {
emmeans (warp.lm, poly ~ tension | wool)
}
if (require(car)) {
Anova(warp.lm,type="III")
}
if (require(effects)) {
plot(allEffects(warp.lm))
}
# }
Run the code above in your browser using DataLab