data(Owls, package = "glmmTMB")
require("lattice")
bwplot(reorder(Nest,NegPerChick) ~ NegPerChick | FoodTreatment:SexParent,
data=Owls)
dotplot(reorder(Nest,NegPerChick) ~ NegPerChick| FoodTreatment:SexParent,
data=Owls)
## Not run: ------------------------------------
# ## Fit negative binomial model with "constant" Zero Inflation :
# owls_nb1 <- glmmTMB(SiblingNegotiation ~ FoodTreatment*SexParent +
# (1|Nest)+offset(log(BroodSize)),
# family = list(family="nbinom1",link="log"),
# zi = ~1, data=Owls)
# owls_nb1_bs <- update(owls_nb1,
# . ~ . - offset(log(BroodSize)) + log(BroodSize))
# fixef(owls_nb1_bs)
## ---------------------------------------------
Run the code above in your browser using DataLab