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

Update utils.R

Browse Source
This commit is contained in:
Tong He 2015-03-20 22:41:47 -07:00
parent 7ced224722
commit 5648bec8a3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
R-package/R/utils.R
View File

@ -193,7 +193,8 @@ xgb.iter.eval <- function(booster, watchlist, iter, feval = NULL, prediction = F
if (length(names(w)) == 0) { if (length(names(w)) == 0) {
stop("xgb.eval: name tag must be presented for every elements in watchlist") stop("xgb.eval: name tag must be presented for every elements in watchlist")
} }
ret <- feval(predict(booster, w[[1]]), w[[1]]) preds <- predict(booster, w[[1]])
ret <- feval(preds, w[[1]])
msg <- paste(msg, "\t", names(w), "-", ret$metric, ":", ret$value, sep="") msg <- paste(msg, "\t", names(w), "-", ret$metric, ":", ret$value, sep="")
} }
} }