df.residual methods

NAMESPACE

@@ -5,6 +5,9 @@ S3method(coef,hypotheses)
 S3method(coef,marginalmeans)
 S3method(coef,predictions)
 S3method(coef,slopes)
+S3method(df.residual,comparisons)
+S3method(df.residual,predictions)
+S3method(df.residual,slopes)
 S3method(get_coef,afex_aov)
 S3method(get_coef,betareg)
 S3method(get_coef,bracl)

R/methods.R

@@ -1,7 +1,7 @@
 #' @noRd
 #' @export
 vcov.comparisons <- function(object, ...) {
-    attr(object, "jacobian") %*% attr(object, "vcov") %*% t(attr(object, "jacobian"))
+  attr(object, "jacobian") %*% attr(object, "vcov") %*% t(attr(object, "jacobian"))
 }
 
 
@@ -60,4 +60,22 @@ coef.predictions <- coef.comparisons
 
 #' @export
 #' @noRd
-coef.hypotheses <- coef.comparisons
+coef.hypotheses <- coef.comparisons
+
+
+#' @export
+#' @noRd
+df.residual.comparisons <- function(x, ...) {
+  out <- tryCatch(stats::df.residual(attr(x, "model")), error = function(e) NULL)
+  return(out)
+}
+
+
+#' @export
+#' @noRd
+df.residual.predictions <- df.residual.comparisons
+
+
+#' @export
+#' @noRd
+df.residual.slopes <- df.residual.comparisons