R/get_all_but_kth_fold.R

Defines functions get_all_but_kth_fold

#' @export

get_all_but_kth_fold <- function(folds, k, K) {
  result <- c()
  for (i in 1:K) {
    if (i != k) {
      result <- c(result, folds[[i]])
    }
  }
  return(result)
}
vegarsti/fhtboost documentation built on Dec. 14, 2019, 10:44 p.m.