From 359889e3d66a6cb7a6eada5b8be0337132e59fca Mon Sep 17 00:00:00 2001 From: El Potaeto Date: Fri, 9 Jan 2015 19:03:47 +0100 Subject: [PATCH] fix a small bug in CV function --- R-package/R/xgb.cv.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R-package/R/xgb.cv.R b/R-package/R/xgb.cv.R index eb14b2e1e..b071f08a7 100644 --- a/R-package/R/xgb.cv.R +++ b/R-package/R/xgb.cv.R @@ -112,8 +112,8 @@ xgb.cv <- function(params=list(), data, nrounds, nfold, label = NULL, missing = type <- rep(x = "numeric", times = length(colnames)) dt <- read.table(text = "", colClasses = type, col.names = colnames) %>% as.data.table - split = str_split(string = history, pattern = "\t") + split <- str_split(string = history, pattern = "\t") - for(line in split) dt <- line[2:length(line)] %>% str_extract_all(pattern = "\\d*\\.*\\d*") %>% unlist %>% as.list %>% {vec <- .; rbindlist(list(dt, vec), use.names = F, fill = F)} + for(line in split) dt <- line[2:length(line)] %>% str_extract_all(pattern = "\\d*\\.+\\d*") %>% unlist %>% as.list %>% {vec <- .; rbindlist(list(dt, vec), use.names = F, fill = F)} dt } \ No newline at end of file