new test

larmarange · Apr 5, 2024 · 4db2dc2 · 4db2dc2
1 parent d81e4b5
commit 4db2dc2
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-marginal_tidiers.R b/tests/testthat/test-marginal_tidiers.R
@@ -101,6 +101,14 @@ test_that("tidy_marginal_predictions()", {
   skip_on_cran()
   skip_if_not_installed("marginaleffects")
 
+  iris <- iris %>% dplyr::arrange(dplyr::desc(Species))
+  mod <- lm(Petal.Length ~ Petal.Width + Species + Sepal.Length, data = iris)
+  expect_error(
+    t <- tidy_marginal_predictions(mod),
+    NA
+  )
+  expect_equal(t[t$variable == "Species", "term"], levels(iris$Species))
+
   mod <- lm(Petal.Length ~ Petal.Width * Species + Sepal.Length, data = iris)
   expect_error(
     t <- tidy_marginal_predictions(mod),