fix warnings

easystats · Jul 24, 2024 · 2733d68 · 2733d68
1 parent c1f02c2
commit 2733d68
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/R/cor_test_bayes.R b/R/cor_test_bayes.R
@@ -58,7 +58,11 @@
 
   if (x == y) {
     # Avoid error in the case of perfect correlation
-    rez <- BayesFactor::correlationBF(stats::rnorm(1000), stats::rnorm(1000), rscale = bayesian_prior)
+    rez <- suppressWarnings(BayesFactor::correlationBF(
+      stats::rnorm(1000),
+      stats::rnorm(1000),
+      rscale = bayesian_prior
+    ))
     params <- parameters::model_parameters(
       rez,
       dispersion = FALSE,
@@ -79,7 +83,11 @@
     if ("ROPE_Percentage" %in% names(params)) params$ROPE_Percentage <- 0
     if ("BF" %in% names(params)) params$BF <- Inf
   } else {
-    rez <- BayesFactor::correlationBF(var_x, var_y, rscale = bayesian_prior)
+    rez <- suppressWarnings(BayesFactor::correlationBF(
+      var_x,
+      var_y,
+      rscale = bayesian_prior
+    ))
     params <- parameters::model_parameters(
       rez,
       dispersion = FALSE,

diff --git a/tests/testthat/test-correlation.R b/tests/testthat/test-correlation.R
@@ -177,7 +177,7 @@ test_that("specific types", {
     y = as.ordered(sample(letters[1:5], 20, TRUE))
   )
 
-  correlation(data, method = "polychoric")
+  expect_warning(correlation(data, method = "polychoric"), regex = "It seems like")
 })
 
 test_that("correlation doesn't fail when BFs are NA", {