Add estimate_contrasts method to report()

DESCRIPTION

@@ -74,6 +74,8 @@ Suggests:
     rmarkdown,
     rstanarm,
     survival,
+    modelbased,
+    emmeans,
     testthat
 VignetteBuilder:
     knitr
@@ -108,6 +110,7 @@ Collate:
     'report.compare_performance.R'
     'report.data.frame.R'
     'report.default.R'
+    'report.estimate_contrasts.R'
     'report.factor.R'
     'report.glm.R'
     'report.glmmTMB.R'

NAMESPACE

@@ -39,6 +39,7 @@ S3method(report,character)
 S3method(report,compare_performance)
 S3method(report,data.frame)
 S3method(report,default)
+S3method(report,estimate_contrasts)
 S3method(report,factor)
 S3method(report,glm)
 S3method(report,glmmTMB)
@@ -201,6 +202,7 @@ S3method(report_table,character)
 S3method(report_table,compare_performance)
 S3method(report_table,data.frame)
 S3method(report_table,default)
+S3method(report_table,estimate_contrasts)
 S3method(report_table,factor)
 S3method(report_table,glm)
 S3method(report_table,glmmTMB)
@@ -230,6 +232,7 @@ S3method(report_text,character)
 S3method(report_text,compare_performance)
 S3method(report_text,data.frame)
 S3method(report_text,default)
+S3method(report_text,estimate_contrasts)
 S3method(report_text,factor)
 S3method(report_text,glm)
 S3method(report_text,glmmTMB)

R/report.estimate_contrasts.R

@@ -0,0 +1,52 @@
+#' Reporting `estimate_contrasts` objects
+#'
+#' Create reports for `estimate_contrasts` objects.
+#'
+#' @param x Object of class `estimate_contrasts`.
+#' @param table Provide the output of  `report_table()` to avoid its
+#'   re-computation.
+#' @inheritParams report
+#'
+#' @inherit report return seealso
+#'
+#' @examplesIf requireNamespace("modelbased", quietly = TRUE) && requireNamespace("emmeans", quietly = TRUE)
+#' library(modelbased)
+#' model <- lm(Sepal.Width ~ Species, data = iris)
+#' contr <- estimate_contrasts(model)
+#' report(contr)
+#' @return An object of class [report()].
+#' @export
+report.estimate_contrasts <- function(x, ...) {
+  table <- report_table(x, ...)
+  text <- report_text(x, table = table, ...)
+
+  as.report(text, table = table, ...)
+}
+
+# report_table ------------------------------------------------------------
+
+#' @rdname report.estimate_contrasts
+#' @export
+report_table.estimate_contrasts <- function(x, ...) {
+  as.report_table(x)
+}
+
+# report_text ------------------------------------------------------------
+
+#' @rdname report.estimate_contrasts
+#' @export
+report_text.estimate_contrasts <- function(x, table = NULL, ...) {
+  f_table <- insight::format_table(table)
+
+  text <- paste0("The difference between ", x$Level1, " and ", x$Level2, " is ",
+    ifelse(x$Difference < 0, " negative", "positive"), " and statistically ",
+    ifelse(x$p < 0.05, "significant", "non-significant"),
+    " (difference = ", f_table$Difference, ", 95% CI ", f_table$`95% CI`, ", ",
+    names(f_table)[6], " = ", f_table[[6]], ", ", insight::format_p(table$p), ")",
+    collapse = ". "
+  )
+
+  text <- paste("The marginal contrasts analysis suggests the following.", paste0(text, collapse = ""))
+
+  as.report_text(text)
+}

_pkgdown.yml

@@ -89,6 +89,7 @@ reference:
       - report.lm
       - report.stanreg
       - report.test_performance
+      - report.estimate_contrasts
 
   - title: Report Non-Statistical Objects
     desc: |