warnings

Author: vincentarelbundock

inst/tinytest/test-exponentiate.R

@@ -162,7 +162,7 @@ e2 <- get_estimates(gm1a, exponentiate = FALSE)
 expect_equal(e1$estimate[nrow(e1)], e2$estimate[nrow(e2)])
 expect_equal(e1$estimate[1:3], exp(e2$estimate[1:3]))
 
-mod <- lmer(Sepal.Length ~ (1 + Sepal.Width | Species), data = iris)
+mod <- suppressMessages(lmer(Sepal.Length ~ (1 + Sepal.Width | Species), data = iris))
 e1 <- get_estimates(mod, exponentiate = FALSE)
 e2 <- get_estimates(mod, exponentiate = TRUE)
 expect_equal(exp(e1$estimate[1]), e2$estimate[1])

inst/tinytest/test-supported.R

@@ -20,7 +20,7 @@ if (isTRUE(requiet("margins"))) {
 requiet("MASS")
 # broom::tidy requires p.values=TRUE, but we now use easystats, so no need to error checking
 fit <- polr(Sat ~ Freq, weights = Freq, data = housing)
-tab <- modelsummary(fit, output = "dataframe", statistic = "p.value")
+tab <- modelsummary(fit, output = "dataframe", statistic = "p.value") |> suppressMessages()
 expect_inherits(tab, "data.frame")
 
 # survival