add test

easystats · Jan 5, 2025 · d6e05ea · d6e05ea
1 parent 28f299c
commit d6e05ea
Show file tree

Hide file tree

Showing 4 changed files with 48 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.24.0.5
+Version: 0.24.0.6
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -152,6 +152,7 @@ Suggests:
     lmerTest,
     lmtest,
     logistf,
+    logitr,
     logspline,
     lqmm,
     M3C,

diff --git a/tests/testthat/_snaps/windows/model_parameters.logitr.md b/tests/testthat/_snaps/windows/model_parameters.logitr.md
@@ -0,0 +1,17 @@
+# model_parameters.logitr
+
+    Code
+      params
+    Output
+      Parameter       | Log-Odds |   SE |          95% CI |      z |      p
+      ---------------------------------------------------------------------
+      scalePar        |     0.37 | 0.02 | [  0.32,  0.41] |  15.04 | < .001
+      feat            |     1.34 | 0.36 | [  0.64,  2.04] |   3.77 | < .001
+      brand [hiland]  |   -10.14 | 0.58 | [-11.26, -9.01] | -17.59 | < .001
+      brand [weight]  |    -1.75 | 0.18 | [ -2.10, -1.40] |  -9.72 | < .001
+      brand [yoplait] |     2.00 | 0.14 | [  1.72,  2.28] |  14.07 | < .001
+    Message
+      
+      Uncertainty intervals (equal-tailed) and p-values (two-tailed) computed
+        using a Wald z-distribution approximation.
+
diff --git a/tests/testthat/_snaps/windows/model_parameters.logitr.new.md b/tests/testthat/_snaps/windows/model_parameters.logitr.new.md
@@ -0,0 +1,13 @@
+# model_parameters.logitr
+
+    Code
+      params
+    Output
+      Parameter       | Log-Odds |   SE |          95% CI |      z |      p
+      ---------------------------------------------------------------------
+      scalePar        |     0.37 | 0.02 | [  0.32,  0.41] |  15.04 | < .001
+      feat            |     1.34 | 0.36 | [  0.64,  2.04] |   3.77 | < .001
+      brand [hiland]  |   -10.14 | 0.58 | [-11.26, -9.01] | -17.59 | < .001
+      brand [weight]  |    -1.75 | 0.18 | [ -2.10, -1.40] |  -9.72 | < .001
+      brand [yoplait] |     2.00 | 0.14 | [  1.72,  2.28] |  14.07 | < .001
+
diff --git a/tests/testthat/test-model_parameters.logitr.R b/tests/testthat/test-model_parameters.logitr.R
@@ -0,0 +1,16 @@
+skip_on_cran()
+skip_if_not_installed("logitr")
+
+test_that("model_parameters.logitr", {
+  data(yogurt, package = "logitr")
+  m <- logitr::logitr(
+    data = yogurt,
+    outcome = "choice",
+    obsID = "obsID",
+    pars = c("feat", "brand"),
+    scalePar = "price",
+    numMultiStarts = 5
+  )
+  params <- model_parameters(m, verbose = FALSE)
+  expect_snapshot(params, variant = "windows")
+})