add test

easystats · Jul 20, 2024 · 09affc7 · 09affc7
1 parent e9eaaba
commit 09affc7
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-equivalence_test.R b/tests/testthat/test-equivalence_test.R
@@ -7,3 +7,15 @@ test_that("equivalence_test", {
   expect_type(capture.output(equivalence_test(m)), "character")
   expect_snapshot(print(x))
 })
+
+test_that("equivalence_test, unequal rope-range", {
+  data(iris)
+  m <- lm(Sepal.Length ~ Species, data=iris)
+  rez <- equivalence_test(m, range = c(-Inf, 0.1))
+  expect_identical(rez$ROPE_Equivalence, c("Rejected", "Rejected", "Rejected"))
+  expect_identical(rez$ROPE_low, c(-Inf, -Inf, -Inf))
+
+  rez <- equivalence_test(m, range = c(-99, 0.1))
+  expect_identical(rez$ROPE_Equivalence, c("Rejected", "Rejected", "Rejected"))
+  expect_identical(rez$ROPE_low, c(-99, -99, -99))
+})