comments

R/format.R

@@ -146,7 +146,7 @@ format.marginaleffects_contrasts <- function(x, model = NULL, p_adjust = NULL, c
   dgrid <- attributes(x)$datagrid
 
   # sanity check - method "get_marginalmeans()" calls "format.estimate_means()"
-  # for printint, and that method doesn't pass "comparison" - thus, we have to
+  # for printing, and that method doesn't pass "comparison" - thus, we have to
   # extract it from the attributes
   if (is.null(comparison)) {
     comparison <- attributes(x)$comparison

R/get_marginalcontrasts.R

@@ -131,6 +131,11 @@ get_marginalcontrasts <- function(model,
       }
     }
   }
+  # we want: "hypothesis" is the original argument provided by the user,
+  # can be a formula like ~pairwise, or a string like "pairwise". This is
+  # converted into the appropriate type depending on the marginaleffects
+  # version. "comparison" should always be a character string, for internal
+  # processing.
   list(hypothesis = hypothesis, comparison = comparison)
 }