diff --git a/tests/testthat/_snaps/plot.check_collinearity/plot-check-collinearity.svg b/tests/testthat/_snaps/plot.check_collinearity/plot-check-collinearity.svg index 59080a3ae..0323748f5 100644 --- a/tests/testthat/_snaps/plot.check_collinearity/plot-check-collinearity.svg +++ b/tests/testthat/_snaps/plot.check_collinearity/plot-check-collinearity.svg @@ -18,62 +18,62 @@ - + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - -1 -2 -3 -5 -10 - -cyl -disp -gear -wt -Variance Inflation Factor (VIF, log-scaled) - - - - - -Low (< 5) -Moderate (< 10) + +1 +2 +3 +5 +10 + +cyl +disp +gear +wt +Variance Inflation Factor (VIF, log-scaled) + + + + + +Low (< 5) +Moderate (< 10) High collinearity (VIF) may inflate parameter uncertainty Collinearity diff --git a/tests/testthat/test-plot.check_collinearity.R b/tests/testthat/test-plot.check_collinearity.R index bfd8903e4..b62f0b77c 100644 --- a/tests/testthat/test-plot.check_collinearity.R +++ b/tests/testthat/test-plot.check_collinearity.R @@ -1,7 +1,7 @@ test_that("`plot.see_check_collinearity()` works", { m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars) result <- performance::check_collinearity(m) - expect_s3_class(plot(result), "gg") + expect_s3_class(plot(result), c("gg", "ggplot")) skip_if_not_installed("vdiffr") vdiffr::expect_doppelganger(