Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Missing parameter documentation

Browse Source
This commit is contained in:
El Potaeto 2014-12-30 16:22:24 +01:00
parent 31ed2813bd
commit af31397ec2
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
R-package/R/xgb.cv.R
View File

@ -36,6 +36,8 @@
#' @param feval custimized evaluation function. Returns #' @param feval custimized evaluation function. Returns
#' \code{list(metric='metric-name', value='metric-value')} with given #' \code{list(metric='metric-name', value='metric-value')} with given
#' prediction and dtrain, #' prediction and dtrain,
#' @param missing Missing is only used when input is dense matrix, pick a float
# value that represents missing value. Sometime a data use 0 or other extreme value to represents missing values.
#' @param ... other parameters to pass to \code{params}. #' @param ... other parameters to pass to \code{params}.
#' #'
#' @details #' @details
@ -73,7 +75,7 @@ xgb.cv <- function(params=list(), data, nrounds, nfold, label = NULL, missing =
} }
folds <- xgb.cv.mknfold(dtrain, nfold, params) folds <- xgb.cv.mknfold(dtrain, nfold, params)
history <- list() history <- c()
for (i in 1:nrounds) { for (i in 1:nrounds) {
msg <- list() msg <- list()
for (k in 1:nfold) { for (k in 1:nfold) {
@ -83,8 +85,12 @@ xgb.cv <- function(params=list(), data, nrounds, nfold, label = NULL, missing =
"\t")[[1]] "\t")[[1]]
} }
ret <- xgb.cv.aggcv(msg, showsd) ret <- xgb.cv.aggcv(msg, showsd)
history <- append(history, ret) history <- c(history, ret)
cat(paste(ret, "\n", sep="")) cat(paste(ret, "\n", sep=""))
} }
return (TRUE) return (history)
}
xgb.cv.strip.numeric <- function(x) {
as.numeric(strsplit(regmatches(x, regexec("test-(.*):(.*)$", x))[[1]][3], "\\+")[[1]])
} }