fix

easystats · Sep 17, 2024 · ccfa2ef · ccfa2ef
1 parent d18afa4
commit ccfa2ef
Show file tree

Hide file tree

Showing 7 changed files with 13 additions and 3 deletions.
diff --git a/R/equivalence_test.R b/R/equivalence_test.R
@@ -87,6 +87,8 @@
 #' equivalence_test(model)
 #' # multiple ROPE ranges - asymmetric, symmetric, default
 #' equivalence_test(model, range = list(c(10, 40), c(-5, -4), "default"))
+#' # named ROPE ranges
+#' equivalence_test(model, range = list(wt = c(-5, -4), `(Intercept)` = c(10, 40)))
 #'
 #' # plot result
 #' test <- equivalence_test(model)

diff --git a/R/p_significance.R b/R/p_significance.R
@@ -59,7 +59,7 @@
 #' p_significance(model)
 #' # multiple thresholds - asymmetric, symmetric, default
 #' p_significance(model, threshold = list(c(-10, 5), 0.2, "default"))
-#' # names thresholds
+#' # named thresholds
 #' p_significance(model, threshold = list(wt = 0.2, `(Intercept)` = c(-10, 5)))
 #' }
 #' @export

diff --git a/R/rope.R b/R/rope.R
@@ -121,6 +121,9 @@
 #' # multiple ROPE ranges
 #' rope(model, range = list(c(-10, 5), c(-0.2, 0.2), "default"))
 #'
+#' # named ROPE ranges
+#' rope(model, range = list(gear = c(-3, 2), wt = c(-0.2, 0.2)))
+#'
 #' library(emmeans)
 #' rope(emtrends(model, ~1, "wt"), ci = c(0.90, 0.95))
 #'

diff --git a/man/equivalence_test.Rd b/man/equivalence_test.Rd
diff --git a/man/p_significance.Rd b/man/p_significance.Rd
diff --git a/man/rope.Rd b/man/rope.Rd
diff --git a/tests/testthat/test-rope.R b/tests/testthat/test-rope.R
@@ -53,7 +53,7 @@ test_that("rope", {
   # list range
   expect_equal(
     rope(m, range = list(c(-1, 0.1), "default", "default", c(-1, 1), c(-1.5, -1)))$ROPE_Percentage,
-    c(0.15823, 1, 0, 0.3903, 0.38186)
+    c(0.15823, 1, 0, 0.3903, 0.38186),
     tolerance = 1e-3
   )