fix

strengejacke · strengejacke · commit 21c707a01e33 · 2025-07-23T19:53:24.000+02:00
diff --git a/tests/testthat/test-estimate_contrasts.R b/tests/testthat/test-estimate_contrasts.R
@@ -1055,9 +1055,8 @@ test_that("estimate_contrast, marginal effects inequalities", {
   )
 
   m <- glm(long_bill ~ species + island + sex + bill_dep, data = penguins, family = "binomial")
-  out <- estimate_contrasts(m, "species", by = c("island", "sex"), comparison = "inequality")
   expect_error(
-    estimate_contrasts(m, c("species", "bill_dep"), comparison = "inequality"),
+    estimate_contrasts(m, "species", by = c("island", "sex"), comparison = "inequality"),
     regex = "can only contain one variable"
   )
 })

Original file line number	Diff line number	Diff line change
`@@ -1055,9 +1055,8 @@ test_that("estimate_contrast, marginal effects inequalities", {`
`1055`	`1055`	`)`
`1056`	`1056`
`1057`	`1057`	`m <- glm(long_bill ~ species + island + sex + bill_dep, data = penguins, family = "binomial")`
`1058`		`- out <- estimate_contrasts(m, "species", by = c("island", "sex"), comparison = "inequality")`
`1059`	`1058`	`expect_error(`
`1060`		`- estimate_contrasts(m, c("species", "bill_dep"), comparison = "inequality"),`
	`1059`	`+ estimate_contrasts(m, "species", by = c("island", "sex"), comparison = "inequality"),`
`1061`	`1060`	`regex = "can only contain one variable"`
`1062`	`1061`	`)`
`1063`	`1062`	`})`