fix

strengejacke · strengejacke · commit 1e1ad1dcf765 · 2026-04-15T15:11:03.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: modelbased
 Title: Estimation of Model-Based Predictions, Contrasts and Means
-Version: 0.14.0.5
+Version: 0.14.0.6
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",
diff --git a/R/format.R b/R/format.R
@@ -174,7 +174,7 @@ format.marginaleffects_means <- function(x, model, ci = 0.95, ...) {
     )
     # for inequality analysis, we want to keep the stratification variable
     remove_columns <- setdiff(remove_columns, attributes(x)$hypothesis_by)
-  } else if (context_effects) {
+  } else if (isTRUE(context_effects)) {
     # for contrasting average slopes (context effects), the estimate might be
     # an odds ratio or IRR by default - thus, we want to keep those names
     estimate_name <- .guess_estimate_name(predict_type, transform, info)

Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ format.marginaleffects_means <- function(x, model, ci = 0.95, ...) {`
`174`	`174`	`)`
`175`	`175`	`# for inequality analysis, we want to keep the stratification variable`
`176`	`176`	`remove_columns <- setdiff(remove_columns, attributes(x)$hypothesis_by)`
`177`		`- } else if (context_effects) {`
	`177`	`+ } else if (isTRUE(context_effects)) {`
`178`	`178`	`# for contrasting average slopes (context effects), the estimate might be`
`179`	`179`	`# an odds ratio or IRR by default - thus, we want to keep those names`
`180`	`180`	`estimate_name <- .guess_estimate_name(predict_type, transform, info)`