diff --git a/tests/testthat/_snaps/include_reference.md b/tests/testthat/_snaps/include_reference.md index e34768070..535f59af7 100644 --- a/tests/testthat/_snaps/include_reference.md +++ b/tests/testthat/_snaps/include_reference.md @@ -1,24 +1,5 @@ # include_reference, on-the-fly factors - Code - print(out2, include_reference = TRUE) - Output - Parameter | Coefficient | SE | 95% CI | t(27) | p - ------------------------------------------------------------------ - (Intercept) | 27.48 | 1.97 | [23.43, 31.53] | 13.92 | < .001 - gear [3] | 0.00 | | | | - gear [4] | 0.08 | 1.83 | [-3.68, 3.83] | 0.04 | 0.967 - gear [5] | 2.39 | 2.38 | [-2.50, 7.29] | 1.00 | 0.324 - am [0] | 0.00 | | | | - am [1] | 4.14 | 1.81 | [ 0.42, 7.85] | 2.29 | 0.030 - hp | -0.06 | 0.01 | [-0.09, -0.04] | -6.24 | < .001 - Message - - Uncertainty intervals (equal-tailed) and p-values (two-tailed) computed - using a Wald t-distribution approximation. - ---- - Code print(out1) Output diff --git a/tests/testthat/test-include_reference.R b/tests/testthat/test-include_reference.R index 92da2dc2a..80316a5bb 100644 --- a/tests/testthat/test-include_reference.R +++ b/tests/testthat/test-include_reference.R @@ -7,12 +7,6 @@ test_that("include_reference, on-the-fly factors", { m1 <- lm(mpg ~ as.factor(gear) + factor(am) + hp, data = mtcars) m2 <- lm(mpg ~ gear + am + hp, data = d) - out1 <- model_parameters(m1) - out2 <- model_parameters(m2) - - # expect_snapshot(print(out1, include_reference = TRUE)) - expect_snapshot(print(out2, include_reference = TRUE)) - out1 <- model_parameters(m1, include_reference = TRUE) out2 <- model_parameters(m2, include_reference = TRUE)