Merge branch 'main' into marginaleffects_0_20_1

easystats · May 13, 2024 · 5db9ca4 · 5db9ca4
2 parents 2aabd48 + b58da6d
commit 5db9ca4
Showing 1 changed file with 14 additions and 15 deletions.
diff --git a/tests/testthat/test-model_parameters.coxme.R b/tests/testthat/test-model_parameters.coxme.R
@@ -5,18 +5,17 @@ skip_if_not_installed("withr")
 
 # modelparameters ----------------------------------
 
-withr::with_environment(
-  new.env(),
-  test_that("model_parameters.coxme", {
-    data(eortc, package = "coxme")
-    d <- coxme::eortc
-    d$surv <- survival::Surv(d$y, d$uncens)
-    m1 <- coxme::coxme(surv ~ trt + (1 | center), data = d)
-    out <- model_parameters(m1)
-    expect_named(
-      out,
-      c("Parameter", "Coefficient", "SE", "CI", "CI_low", "CI_high", "z", "df_error", "p")
-    )
-    expect_equal(out$Coefficient, 0.7086127, tolerance = 1e-4)
-  })
-)
+## TODO: works only interactively
+
+# test_that("model_parameters.coxme", {
+#   data(eortc, package = "coxme")
+#   d <- coxme::eortc
+#   d$surv <- survival::Surv(d$y, d$uncens)
+#   m1 <- coxme::coxme(surv ~ trt + (1 | center), data = d)
+#   out <- model_parameters(m1)
+#   expect_named(
+#     out,
+#     c("Parameter", "Coefficient", "SE", "CI", "CI_low", "CI_high", "z", "df_error", "p")
+#   )
+#   expect_equal(out$Coefficient, 0.7086127, tolerance = 1e-4)
+# })