From 6278376dc91a4f28f991ae6d790d5dc01c0d00ae Mon Sep 17 00:00:00 2001
From: AQLT <alain.quartier@yahoo.fr>
Date: Sun, 5 Jan 2025 08:43:17 +0100
Subject: [PATCH] remove naming

---
 R/crossvalidation.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/crossvalidation.R b/R/crossvalidation.R
index 21221ee..1002f19 100644
--- 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