remove naming

rjdverse · Jan 5, 2025 · 6278376 · 6278376
1 parent d1e29db
commit 6278376
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/crossvalidation.R b/R/crossvalidation.R
@@ -267,6 +267,7 @@ df_var <- function(n, coef, exact_df = FALSE) {
   p <- abs(lower_bound(coef))
   f <- upper_bound(coef)
   df_num <- (n - (p + f))*(1- 2 * coef0 + sum(value_coef^2))
+  names(df_num) <- NULL
   if (!exact_df)
     return(df_num) # Approximation of the degrees of freedom