lintr

easystats · Jul 22, 2024 · 1cc4358 · 1cc4358
1 parent e747909
commit 1cc4358
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/methods_systemfit.R b/R/methods_systemfit.R
@@ -84,7 +84,7 @@ p_value.systemfit <- function(model, ...) {
 
 #' @export
 degrees_of_freedom.systemfit <- function(model, ...) {
-  df <- NULL
+  dof <- NULL
   s <- summary(model)$eq
   params <- insight::find_parameters(model)
   f <- insight::find_formula(model)
@@ -93,10 +93,10 @@ degrees_of_freedom.systemfit <- function(model, ...) {
   for (i in seq_along(system_names)) {
     dfs <- rep(s[[i]]$df[2], length(params[[i]]))
     df_names <- rep(names(params[i]), length(params[[i]]))
-    df <- c(df, stats::setNames(dfs, df_names))
+    dof <- c(dof, stats::setNames(dfs, df_names))
   }
 
-  df
+  dof
 }