update tests

easystats · Oct 27, 2024 · 00d20ee · 00d20ee
1 parent 871441d
commit 00d20ee
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 10 deletions.
diff --git a/tests/testthat/_snaps/complete_separation.md b/tests/testthat/_snaps/complete_separation.md
@@ -44,10 +44,10 @@
     Code
       print(out)
     Output
-      Parameter   | Log-Odds |    SE |         95% CI |     z |     p
-      ---------------------------------------------------------------
-      (Intercept) |   -70.25 | 88.29 | [    , -16.06] | -0.80 | 0.426
-      qsec        |     4.12 |  5.22 | [0.97,       ] |  0.79 | 0.430
+      Parameter   | Log-Odds |    SE |            95% CI |     z |     p
+      ------------------------------------------------------------------
+      (Intercept) |   -51.19 | 19.62 | [-105.21, -22.47] | -2.61 | 0.009
+      qsec        |     2.89 |  1.10 | [   1.28,   5.93] |  2.63 | 0.009
     Message
       
       Uncertainty intervals (profile-likelihood) and p-values (two-tailed)

diff --git a/tests/testthat/_snaps/printing.md b/tests/testthat/_snaps/printing.md
@@ -361,9 +361,7 @@
       Uncertainty intervals (equal-tailed) and p-values (two-tailed) computed
         using a Wald t-distribution approximation.
       
-      This model has a log-transformed response variable, and exponentiated
-        parameters are reported.
-        
-      A one-unit increase in the predictor is associated with multiplying the
-        outcome by that predictor's coefficient.
+      The model has a log-transformed response variable, and exponentiated
+        parameters are reported. A one-unit increase in the predictor is
+        associated with multiplying the outcome by that predictor's coefficient.
 
diff --git a/tests/testthat/test-complete_separation.R b/tests/testthat/test-complete_separation.R
@@ -30,7 +30,7 @@ withr::with_options(
   test_that("print warning about quasi complete separation", {
     data(mtcars)
     set.seed(323)
-    m_sep3 <- suppressWarnings(glm(vs ~ qsec, data = mtcars[sample.int(32, 15, replace = TRUE), ], family = binomial)) # nolint
+    m_sep3 <- suppressWarnings(glm(vs ~ qsec, data = mtcars[sample.int(32, 27, replace = TRUE), ], family = binomial)) # nolint
     out <- model_parameters(m_sep3)
     expect_snapshot(print(out))
   })