fix

easystats · Dec 22, 2024 · 119c4a2 · 119c4a2
1 parent b403c52
commit 119c4a2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-r2_mcfadden.R b/tests/testthat/test-r2_mcfadden.R
@@ -37,15 +37,15 @@ test_that("r2_mcfadden, glmmTMB-beta-binomial", {
     newdata = dd,
     newparams = list(beta = c(0,1), betadisp = -1),
     weights = rep(10, nrow(dd)),
-    family = "betabinomial"
+    family = glmmTMB::betabinomial()
   )[[1]]
   dd$success <- round(runif(nrow(dd), 0, dd$y))
 
   m <- glmmTMB::glmmTMB(
     y/10 ~ 1 + x,
     data = dd,
     weights = rep(10, nrow(dd)),
-    family = "betabinomial"
+    family = glmmTMB::betabinomial()
   )
   out1 <- r2(m)
   out2 <- r2_mcfadden(m)
@@ -56,7 +56,7 @@ test_that("r2_mcfadden, glmmTMB-beta-binomial", {
     cbind(y, success) ~ 1 + x,
     data = dd,
     weights = rep(10, nrow(dd)),
-    family = "betabinomial"
+    family = glmmTMB::betabinomial()
   )
   expect_warning(r2(m), regex = "calculate accurate")
   expect_warning(r2_mcfadden(m), regex = "calculate accurate")