update snap

easystats · Sep 2, 2024 · fea57f0 · fea57f0
1 parent 9350ba1
commit fea57f0
Show file tree

Hide file tree

Showing 2 changed files with 46 additions and 36 deletions.
diff --git a/tests/testthat/_snaps/weightit.md b/tests/testthat/_snaps/weightit.md
@@ -51,4 +51,7 @@
       
       Uncertainty intervals (equal-tailed) and p-values (two-tailed) computed
         using a Wald z-distribution approximation.
+      
+      The model has a log- or logit-link. Consider using `exponentiate =
+        TRUE` to interpret coefficients as ratios.
 
diff --git a/tests/testthat/test-weightit.R b/tests/testthat/test-weightit.R
@@ -1,43 +1,50 @@
 skip_if_not_installed("WeightIt")
 skip_if_not_installed("cobalt")
 skip_if_not_installed("insight", minimum_version = "0.20.4")
+skip_if_not_installed("withr")
 
-test_that("weightit, multinom", {
-  data("lalonde", package = "cobalt")
-  set.seed(1234)
-  # Logistic regression ATT weights
-  w.out <- WeightIt::weightit(
-    treat ~ age + educ + married + re74,
-    data = lalonde,
-    method = "glm",
-    estimand = "ATT"
-  )
-  lalonde$re78_3 <- factor(findInterval(lalonde$re78, c(0, 5e3, 1e4)))
+withr::local_options(
+  list(parameters_warning_exponentiate = TRUE),
+  test_that("weightit, multinom", {
+    data("lalonde", package = "cobalt")
+    set.seed(1234)
+    # Logistic regression ATT weights
+    w.out <- WeightIt::weightit(
+      treat ~ age + educ + married + re74,
+      data = lalonde,
+      method = "glm",
+      estimand = "ATT"
+    )
+    lalonde$re78_3 <- factor(findInterval(lalonde$re78, c(0, 5e3, 1e4)))
 
-  fit4 <- WeightIt::multinom_weightit(
-    re78_3 ~ treat + age + educ,
-    data = lalonde,
-    weightit = w.out
-  )
-  expect_snapshot(print(model_parameters(fit4)))
-})
+    fit4 <- WeightIt::multinom_weightit(
+      re78_3 ~ treat + age + educ,
+      data = lalonde,
+      weightit = w.out
+    )
+    expect_snapshot(print(model_parameters(fit4)))
+  })
+)
 
-test_that("weightit, ordinal", {
-  data("lalonde", package = "cobalt")
-  set.seed(1234)
-  # Logistic regression ATT weights
-  w.out <- WeightIt::weightit(
-    treat ~ age + educ + married + re74,
-    data = lalonde,
-    method = "glm",
-    estimand = "ATT"
-  )
-  lalonde$re78_3 <- factor(findInterval(lalonde$re78, c(0, 5e3, 1e4)))
+withr::local_options(
+  list(parameters_warning_exponentiate = TRUE),
+  test_that("weightit, ordinal", {
+    data("lalonde", package = "cobalt")
+    set.seed(1234)
+    # Logistic regression ATT weights
+    w.out <- WeightIt::weightit(
+      treat ~ age + educ + married + re74,
+      data = lalonde,
+      method = "glm",
+      estimand = "ATT"
+    )
+    lalonde$re78_3 <- factor(findInterval(lalonde$re78, c(0, 5e3, 1e4)))
 
-  fit5 <- WeightIt::ordinal_weightit(
-    ordered(re78_3) ~ treat + age + educ,
-    data = lalonde,
-    weightit = w.out
-  )
-  expect_snapshot(print(model_parameters(fit5)))
-})
+    fit5 <- WeightIt::ordinal_weightit(
+      ordered(re78_3) ~ treat + age + educ,
+      data = lalonde,
+      weightit = w.out
+    )
+    expect_snapshot(print(model_parameters(fit5)))
+  })
+)