From 46139ea20ff53d00610582cb6601c6bf7a3bf2ff Mon Sep 17 00:00:00 2001 From: "Mattan S. Ben-Shachar" Date: Mon, 27 Jan 2025 11:14:04 +0200 Subject: [PATCH] Update describe_posterior.R --- R/describe_posterior.R | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/R/describe_posterior.R b/R/describe_posterior.R index 0f7b64024..47c6969a4 100644 --- a/R/describe_posterior.R +++ b/R/describe_posterior.R @@ -141,7 +141,7 @@ describe_posterior.default <- function(posterior, ...) { } # we need this information from the original object - if (all(rope_range == "default")) { + if (.check_if_need_to_compute_rope_range(rope_range, test)) { rope_range <- rope_range(x, verbose = verbose, ...) } @@ -1433,3 +1433,20 @@ describe_posterior.BFBayesFactor <- function(posterior, "bf", "bayesfactor", "bayes_factor", "p_map", "all" ), several.ok = TRUE) } + +#' @keywords internal +.check_if_need_to_compute_rope_range <- function(rope_range, test) { + if (rope_range != "default") { + return(FALSE) + } + + need_rope <- c( + "all", + "p_rope", + "ps", "p_sig", "p_significance", + "rope", + "equivalence", "equivalence_test", "equitest" + ) + + return(is.character(test) && length(test) > 0L && any(need_rope %in% tolower(test))) +} \ No newline at end of file