From 2443cb9ca8d54ea7b37c600aadbf0857da4c2125 Mon Sep 17 00:00:00 2001
From: Florian <florian.simond@outlook.com>
Date: Mon, 15 Feb 2016 12:00:35 +0100
Subject: [PATCH] Fix CV which was monitoring train-metric

https://github.com/dmlc/xgboost/issues/807
---
 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 36c1b79ae..7ad2e5c41 100644
--- a/R-package/R/xgb.cv.R
+++ b/R-package/R/xgb.cv.R
@@ -191,7 +191,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]][2 + length(metrics)]
+            score <- strsplit(ret,'\\s+')[[1]][1 + length(metrics) + 2]
             score <- strsplit(score,'\\+|:')[[1]][[2]]
             score <- as.numeric(score)
             if ( (maximize && score > bestScore) || (!maximize && score < bestScore)) {