From d8edd37393a561f8d0304771428db102e3a630dd Mon Sep 17 00:00:00 2001 From: Daniel Date: Tue, 28 Jan 2025 09:14:02 +0100 Subject: [PATCH] don't resample when getting sigma --- DESCRIPTION | 2 +- R/rope_range.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 121990a6d..5796f5601 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: bayestestR Title: Understand and Describe Bayesian Models and Posterior Distributions -Version: 0.15.1.1 +Version: 0.15.1.2 Authors@R: c(person(given = "Dominique", family = "Makowski", diff --git a/R/rope_range.R b/R/rope_range.R index bc92577ab..a8ccb5c4e 100644 --- a/R/rope_range.R +++ b/R/rope_range.R @@ -152,7 +152,7 @@ rope_range.mlm <- function(x, verbose = TRUE, ...) { 0.1 * 1 } else if (information$is_exponential) { # Gamma models - sig <- insight::get_sigma(x) + sig <- insight::get_sigma(x, no_recursion = TRUE) if (is.null(sig) || length(sig) == 0 || is.na(sig)) stop(call. = FALSE) switch(information$link_function, inverse = , @@ -165,7 +165,7 @@ rope_range.mlm <- function(x, verbose = TRUE, ...) { 0.05 } else if (information$is_count) { # Not sure about this - sig <- insight::get_sigma(x) + sig <- insight::get_sigma(x, no_recursion = TRUE) if (is.null(sig) || length(sig) == 0 || is.na(sig)) stop(call. = FALSE) 0.1 * sig } else {