support htest

Author: strengejacke

DESCRIPTION

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

NEWS.md

@@ -1,3 +1,10 @@
+# modelbased (devel)
+
+## Changes
+
+* `estimate_expectation()` and `estimate_relation()` now support objects of
+  class `htest`.
+
 # modelbased 0.12.0
 
 ## Changes

R/estimate_predicted.R

@@ -373,6 +373,11 @@ estimate_relation <- function(model,
                                 iterations = NULL,
                                 keep_iterations = FALSE,
                                 ...) {
+  # return early for htest
+  if (inherits(model, "htest")) {
+    return(insight::get_predicted(model, ...))
+  }
+
   # only "by" or "data", but not both
   if (!is.null(by) && !is.null(data)) {
     insight::format_error("You can only specify one of `by` or `data`, but not both.")