fix for rlm

easystats · Jul 23, 2024 · 52847fd · 52847fd
1 parent a0e6ff4
commit 52847fd
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -530,6 +530,7 @@ S3method(get_df,phylolm)
 S3method(get_df,poissonirr)
 S3method(get_df,poissonmfx)
 S3method(get_df,probitmfx)
+S3method(get_df,rlm)
 S3method(get_df,svy2lme)
 S3method(get_family,default)
 S3method(get_family,list)

diff --git a/R/get_df.R b/R/get_df.R
@@ -189,6 +189,18 @@ get_df.svy2lme <- function(x, type = "residual", verbose = TRUE, ...) {
 }
 
 
+#' @export
+get_df.rlm <- function(x, type = "residual", verbose = TRUE, ...) {
+  if (identical(type, "model")) {
+    .model_df(x)
+  } else if (identical(type, "normal")) {
+    Inf
+  } else {
+    .degrees_of_freedom_residual(x)
+  }
+}
+
+
 #' @export
 get_df.mmrm <- function(x, type = "residual", verbose = TRUE, ...) {
   if (identical(type, "model")) {

diff --git a/R/get_df_residual.R b/R/get_df_residual.R
@@ -64,6 +64,9 @@
   n - nparam
 }
 
+#' @keywords internal
+.degrees_of_freedom_residual.rlm <- .degrees_of_freedom_residual.gls
+
 #' @keywords internal
 .degrees_of_freedom_residual.glimML <- function(x, verbose = TRUE, ...) {
   check_if_installed("aod")