if (FALSE) { # require("glmmTMB") && require("qqplotr") && require("DHARMa")
data(Salamanders, package = "glmmTMB")
model <- glmmTMB::glmmTMB(
count ~ mined + spp + (1 | site),
family = poisson(),
data = Salamanders
)
simulated_residuals <- performance::simulate_residuals(model)
plot(simulated_residuals)
# or
simulated_residuals <- performance::simulate_residuals(model)
result <- performance::check_residuals(simulated_residuals)
plot(result)
}
Run the code above in your browser using DataLab