From 6ba53329e58a91710b70b1bf57a6f88128cf1d45 Mon Sep 17 00:00:00 2001
From: Ganesh <gkrishnan.gt@gmail.com>
Date: Thu, 7 Jan 2016 22:20:21 -0800
Subject: [PATCH] Fixed off by 1 bug in xgb.cv

---
 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 7ad2e5c41..36c1b79ae 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]][1 + length(metrics) + 2]
+            score <- strsplit(ret,'\\s+')[[1]][2 + length(metrics)]
             score <- strsplit(score,'\\+|:')[[1]][[2]]
             score <- as.numeric(score)
             if ( (maximize && score > bestScore) || (!maximize && score < bestScore)) {