if needed, for gam

easystats · Jul 22, 2024 · 869a304 · 869a304
1 parent f49487f
commit 869a304
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/R/get_df_residual.R b/R/get_df_residual.R
@@ -226,3 +226,18 @@
 
   dof
 }
+
+
+# helper ----------------------
+
+.dof_fit_gam <- function(model, dof) {
+  params <- find_parameters(model)
+  if (!is.null(params$conditional)) {
+    dof <- rep(dof, length(params$conditional))
+  }
+  if (!is.null(params$smooth_terms)) {
+    s <- summary(model)
+    dof <- c(dof, s$s.table[, "Ref.df"])
+  }
+  dof
+}