Skip to content

Commit

Permalink
styler
Browse files Browse the repository at this point in the history
  • Loading branch information
rempsyc committed Feb 17, 2025
1 parent 38892fb commit 772bae0
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions tests/testthat/test-estimate_contrasts.R
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,9 @@ test_that("estimate_contrasts - Frequentist, one factor", {
expect_identical(dim(estim), c(1L, 9L))

estim <- suppressMessages(estimate_contrasts(
model, contrast = "Species=c('versicolor', 'virginica')", backend = "marginaleffects"))
model,
contrast = "Species=c('versicolor', 'virginica')", backend = "marginaleffects"
))
expect_identical(dim(estim), c(1L, 9L))
})

Expand All @@ -52,7 +54,9 @@ test_that("estimate_contrasts - Frequentist, two factors", {
estim <- suppressMessages(estimate_contrasts(model, contrast = "Species", backend = "marginaleffects"))
expect_identical(dim(estim), c(3L, 9L))
estim <- suppressMessages(estimate_contrasts(
model, contrast = "Species", by = "fac='A'", backend = "marginaleffects"))
model,
contrast = "Species", by = "fac='A'", backend = "marginaleffects"
))
expect_identical(dim(estim), c(3L, 10L))
})

Expand Down

0 comments on commit 772bae0

Please sign in to comment.