Nothing
skip_on_cran()
skip_if_not_installed("glmmTMB", minimum_version = "1.1.8")
skip_if_not_installed("performance", minimum_version = "0.12.1")
skip_if_not_installed("withr")
# ==============================================================================
# ordered beta mixed models, glmmTMB
# ==============================================================================
withr::with_environment(
new.env(),
test_that("glmmTMB, ordbeta", {
# dataset ---------------------------------
skip_if_not_installed("datawizard")
skip_if_not_installed("lme4")
data(sleepstudy, package = "lme4")
sleepstudy$y <- datawizard::normalize(sleepstudy$Reaction)
m <- glmmTMB::glmmTMB(
y ~ Days + (Days | Subject),
data = sleepstudy,
family = glmmTMB::ordbeta()
)
mnull <- glmmTMB::glmmTMB(
y ~ 1 + (Days | Subject),
data = sleepstudy,
family = glmmTMB::ordbeta()
)
out <- suppressWarnings(performance::r2_nakagawa(m, null_model = mnull, verbose = FALSE))
expect_equal(out$R2_marginal, 0.2799715, ignore_attr = TRUE, tolerance = 1e-4)
expect_equal(out$R2_conditional, 0.8504158, ignore_attr = TRUE, tolerance = 1e-4)
})
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.