fix tests

easystats · Dec 2, 2024 · 9dd1763 · 9dd1763
1 parent d6e24ca
commit 9dd1763
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -160,7 +160,7 @@ Suggests:
     metafor,
     metaplus,
     mgcv,
-    mice,
+    mice (>= 3.17.0),
     mlogit,
     mmrm,
     modelbased,

diff --git a/R/get_statistic.R b/R/get_statistic.R
@@ -1549,8 +1549,8 @@ get_statistic.mipo <- function(x, ...) {
     stringsAsFactors = FALSE
   )
   # check for ordinal-alike models
-  if ("y.level" %in% colnames(s)) {
-    params$Response <- as.vector(s$y.level)
+  if (!is.null(x$pooled) && "y.level" %in% colnames(x$pooled)) {
+    params$Response <- as.vector(x$pooled$y.level)
   }
   out <- text_remove_backticks(params)
   attr(out, "statistic") <- find_statistic(x)

diff --git a/tests/testthat/test-mipo.R b/tests/testthat/test-mipo.R
@@ -19,6 +19,7 @@ test_that("param", {
   out1$Estimate <- round(out1$Estimate, 4)
   out2$Statistic <- round(out2$Statistic, 4)
   expect_equal(out1$Response, c("6", "6", "6", "8", "8", "8"))
+  expect_equal(out2$Response, c("6", "6", "6", "8", "8", "8"))
   expect_snapshot(out1)
   expect_snapshot(out2)
   expect_identical(find_parameters(pooled), list(conditional = c("(Intercept)", "disp", "hp")))