From f9ae83e95159f7503903c4d309fe54a07fb01d5d Mon Sep 17 00:00:00 2001 From: Tong He Date: Thu, 28 May 2015 09:30:23 -0700 Subject: [PATCH] Update xgb.cv.R --- R-package/R/xgb.cv.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R-package/R/xgb.cv.R b/R-package/R/xgb.cv.R index 031cfda37..df7fd5648 100644 --- a/R-package/R/xgb.cv.R +++ b/R-package/R/xgb.cv.R @@ -206,7 +206,7 @@ xgb.cv <- function(params=list(), data, nrounds, nfold, label = NULL, missing = # early_Stopping if (!is.null(early.stop.round)){ - score = strsplit(ret,'\\s+')[[1]][1+length(metrics)+1] + score = strsplit(ret,'\\s+')[[1]][1+length(metrics)+2] score = strsplit(score,'\\+|:')[[1]][[2]] score = as.numeric(score) if ((maximize && score>bestScore) || (!maximize && score