# NOT RUN {
epil2$subject <- factor(epil2$subject)
op <- options(digits=3)
(fm <- glmmTMB(y ~ Base*trt + Age + Visit + (Visit|subject),
data=epil2, family=nbinom2))
meths <- methods(class = class(fm))
if((Rv <- getRversion()) > "3.1.3") {
(funs <- attr(meths, "info")[, "generic"])
for(F in funs[is.na(match(funs, "getME"))]) {
cat(sprintf("%s:\n-----\n", F))
r <- tryCatch( get(F)(fm), error=identity)
if (inherits(r, "error")) cat("** Error:", r$message,"\n")
else tryCatch( print(r) )
cat(sprintf("---end{%s}--------------\n\n", F))
}
}
options(op)
# }
Run the code above in your browser using DataLab