fix missing p.value

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: modelbased
 Title: Estimation of Model-Based Predictions, Contrasts and Means
-Version: 0.14.0.3
+Version: 0.14.0.4
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

R/format.R

@@ -155,6 +155,7 @@ format.marginaleffects_means <- function(x, model, ci = 0.95, ...) {
   non_focal <- setdiff(colnames(model_data), attr(x, "focal_terms"))
   predict_type <- attributes(x)$predict
   transform <- attributes(x)$transform
+  context_effects <- attributes(x)$context_effects
 
   # special attributes we get from "get_marginalcontrasts()"
   comparison <- list(...)$hypothesis
@@ -173,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 (is_contrast_analysis) {
+  } else if (is_contrast_analysis || context_effects) {
     estimate_name <- "Difference"
   } else {
     # for simple means, we don't want p-values

tests/testthat/test-estimate_contrasts_context.R

@@ -19,6 +19,7 @@ test_that("estimate_contrast, context effects, linear", {
   )
   expect_equal(out$Mean, b[1] - b[2], tolerance = 1e-4, ignore_attr = TRUE)
   expect_equal(out$SE, sqrt((se[1]^2 + se[2]^2)), tolerance = 1e-4, ignore_attr = TRUE)
+  expect_true(!is.null(out$p))
 })
 
 test_that("estimate_contrast, context effects, glm", {
@@ -36,13 +37,15 @@ test_that("estimate_contrast, context effects, glm", {
     comparison = "context"
   )
   expect_equal(out$Odds_Ratio, exp(b[1] - b[2]), tolerance = 1e-4, ignore_attr = TRUE)
+  expect_true(!is.null(out$p))
 
   out <- modelbased::estimate_contrasts(
     m,
     c("bill_len_between", "bill_len_within"),
     comparison = "slope"
   )
   expect_equal(out$Odds_Ratio, exp(b[1] - b[2]), tolerance = 1e-4, ignore_attr = TRUE)
+  expect_true(!is.null(out$p))
 
   out <- modelbased::estimate_contrasts(
     m,