fix

easystats · May 23, 2024 · e47a0fd · e47a0fd
1 parent cc0062d
commit e47a0fd
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/tests/testthat/test-estimate_predicted.R b/tests/testthat/test-estimate_predicted.R
@@ -166,11 +166,9 @@ test_that("estimate_response - VisMatrix", {
   skip_if_not_installed("mgcv")
 
   m <- lm(Sepal.Length ~ Petal.Length * Petal.Width, data = iris)
-  vm <- visualisation_matrix(m, at = c("Petal.Length", "Petal.Width = seq(-3, 3)"))
+  vm <- visualisation_matrix(m, by = c("Petal.Length", "Petal.Width = seq(-3, 3)"))
   estim <- estimate_relation(vm)
-  expect_equal(dim(estim), c(70, 6))
-  expect_equal(
-    colnames(estim),
-    c("Petal.Length", "Petal.Width", "Predicted", "SE", "CI_low", "CI_high")
+  expect_identical(dim(estim), c(70L, 6L))
+  expect_named(estim, c("Petal.Length", "Petal.Width", "Predicted", "SE", "CI_low", "CI_high")
   )
 })