1453bee3e7
* [R] Fix empty empty tests and a test warnings * [R] Remove stringi dependency (fix #5905) * Fix R lint check * [R] Fix automatic conversion to factor in R < 4.0.0 in xgb.model.dt.tree * Add `R` Makefile variable Co-authored-by: Philip Hyunsu Cho <chohyu01@cs.washington.edu>
17 lines
527 B
R
17 lines
527 B
R
require(xgboost)
|
|
|
|
context("Garbage Collection Safety Check")
|
|
|
|
test_that("train and prediction when gctorture is on", {
|
|
data(agaricus.train, package = 'xgboost')
|
|
data(agaricus.test, package = 'xgboost')
|
|
train <- agaricus.train
|
|
test <- agaricus.test
|
|
gctorture(TRUE)
|
|
bst <- xgboost(data = train$data, label = train$label, max.depth = 2,
|
|
eta = 1, nthread = 2, nrounds = 2, objective = "binary:logistic")
|
|
pred <- predict(bst, test$data)
|
|
gctorture(FALSE)
|
|
expect_length(pred, length(test$label))
|
|
})
|