From b82e78c1693f63c49cb4d0be62a220698d43f880 Mon Sep 17 00:00:00 2001 From: James Lamb Date: Tue, 15 Aug 2023 00:44:08 -0500 Subject: [PATCH] [R] remove commented-out code (#9481) --- R-package/R/xgb.cv.R | 7 ------- 1 file changed, 7 deletions(-) diff --git a/R-package/R/xgb.cv.R b/R-package/R/xgb.cv.R index 0b1baaa84..9e1ffeddc 100644 --- a/R-package/R/xgb.cv.R +++ b/R-package/R/xgb.cv.R @@ -135,9 +135,6 @@ xgb.cv <- function(params = list(), data, nrounds, nfold, label = NULL, missing check.custom.obj() check.custom.eval() - #if (is.null(params[['eval_metric']]) && is.null(feval)) - # stop("Either 'eval_metric' or 'feval' must be provided for CV") - # Check the labels if ((inherits(data, 'xgb.DMatrix') && is.null(getinfo(data, 'label'))) || (!inherits(data, 'xgb.DMatrix') && is.null(label))) { @@ -161,10 +158,6 @@ xgb.cv <- function(params = list(), data, nrounds, nfold, label = NULL, missing folds <- generate.cv.folds(nfold, nrow(data), stratified, cv_label, params) } - # Potential TODO: sequential CV - #if (strategy == 'sequential') - # stop('Sequential CV strategy is not yet implemented') - # verbosity & evaluation printing callback: params <- c(params, list(silent = 1)) print_every_n <- max(as.integer(print_every_n), 1L)