diff --git a/R/rope.R b/R/rope.R index a07726504..8158e6091 100644 --- a/R/rope.R +++ b/R/rope.R @@ -613,7 +613,7 @@ rope.sim <- function(x, range = "default", ci = 0.95, ci_method = "ETI", paramet .prepare_rope_df <- function(parms, range, ci, ci_method, verbose) { if (is.list(range)) { # check if list of values contains only valid values - .check_list_range(range, params) + .check_list_range(range, parms) # apply thresholds to each column tmp <- mapply( function(p, r) { diff --git a/tests/testthat/test-bayesian_as_frequentist.R b/tests/testthat/test-bayesian_as_frequentist.R index 8066f3483..0fafdbcb9 100644 --- a/tests/testthat/test-bayesian_as_frequentist.R +++ b/tests/testthat/test-bayesian_as_frequentist.R @@ -34,7 +34,7 @@ test_that("brms beta to freq", { skip_if_not_or_load_if_installed("betareg") set.seed(333) - m <- insight::download_model("brms_beta_1") + m <- suppressWarnings(insight::download_model("brms_beta_1")) data(FoodExpenditure, package = "betareg") m1 <- glmmTMB::glmmTMB( I(food / income) ~ income + (1 | persons), @@ -56,7 +56,7 @@ test_that("ordbetareg to freq", { set.seed(333) data(sleepstudy, package = "lme4") - m <- insight::download_model("ordbetareg_1") + m <- suppressWarnings(insight::download_model("ordbetareg_1")) sleepstudy$y <- datawizard::normalize(sleepstudy$Reaction) m1 <- glmmTMB::glmmTMB( y ~ Days + (Days | Subject),