fix fold names

Author: kongdd

DESCRIPTION

@@ -18,6 +18,6 @@ Imports:
     dplyr, tidyselect,
     purrr
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Remotes:
     rpkgs/Ipaper

R/kfold_calib.R

@@ -21,6 +21,7 @@ kfold_calib <- function(X, Y, FUN = xgboost, index=NULL, ..., ratio_valid=0.3) {
 #' @export
 kfold_tidy <- function(res, ind_lst, Y) {
     kfold_names <- names(ind_lst)
+    if (is.null(kfold_names)) kfold_names <- paste0(seq_along(ind_lst))
 
     ## 3. GOF information get
     val <- map(res, ~ .x$ypred) %>% unlist() # pred value