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

fixed unit test in R

Browse Source
This commit is contained in:
Yuan Tang (Terry) 2015-09-06 20:00:25 -04:00
parent 92b996513e
commit 339a53d9d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R-package/tests/testthat/test_glm.R
View File

@ -13,7 +13,7 @@ test_that("glm works", {
nthread = 2, alpha = 0.0001, lambda = 1) nthread = 2, alpha = 0.0001, lambda = 1)
watchlist <- list(eval = dtest, train = dtrain) watchlist <- list(eval = dtest, train = dtrain)
num_round <- 2 num_round <- 2
expect_that(bst <- xgb.train(param, dtrain, num_round, watchlist), not(throws_error())) bst <- xgb.train(param, dtrain, num_round, watchlist)
expect_that(ypred <- predict(bst, dtest), not(throws_error())) ypred <- predict(bst, dtest)
expect_equal(length(getinfo(dtest, 'label')), 1611) expect_equal(length(getinfo(dtest, 'label')), 1611)
}) })