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

Add new tests for helper functions

Browse Source
This commit is contained in:
pommedeterresautee 2015-12-01 15:44:27 +01:00
parent 13a341b88d
commit 29b73897f8
1 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
R-package/tests/testthat/test_helpers.R
View File

@ -5,7 +5,7 @@ require(data.table)
require(Matrix) require(Matrix)
require(vcd) require(vcd)
set.seed(1994) set.seed(1982)
data(Arthritis) data(Arthritis)
data(agaricus.train, package='xgboost') data(agaricus.train, package='xgboost')
df <- data.table(Arthritis, keep.rownames = F) df <- data.table(Arthritis, keep.rownames = F)
@ -17,25 +17,38 @@ output_vector <- df[,Y := 0][Improved == "Marked",Y := 1][,Y]
bst <- xgboost(data = sparse_matrix, label = output_vector, max.depth = 9, bst <- xgboost(data = sparse_matrix, label = output_vector, max.depth = 9,
eta = 1, nthread = 2, nround = 10,objective = "binary:logistic") eta = 1, nthread = 2, nround = 10,objective = "binary:logistic")
feature.names <- agaricus.train$data@Dimnames[[2]]
test_that("xgb.dump works", { test_that("xgb.dump works", {
capture.output(print(xgb.dump(bst))) capture.output(print(xgb.dump(bst)))
expect_true(xgb.dump(bst, 'xgb.model.dump', with.stats = T)) expect_true(xgb.dump(bst, 'xgb.model.dump', with.stats = T))
}) })
test_that("xgb.importance works", { test_that("xgb.model.dt.tree works with and without feature names", {
names.dt.trees <- c("ID", "Feature", "Split", "Yes", "No", "Missing", "Quality", "Cover",
"Tree", "Yes.Feature", "Yes.Cover", "Yes.Quality", "No.Feature", "No.Cover", "No.Quality")
dt.tree <- xgb.model.dt.tree(feature_names = feature.names, model = bst)
expect_equal(names.dt.trees, names(dt.tree))
expect_equal(dim(dt.tree), c(162, 15))
xgb.model.dt.tree(model = bst)
})
test_that("xgb.importance works with and without feature names", {
importance <- xgb.importance(feature_names = sparse_matrix@Dimnames[[2]], model = bst) importance <- xgb.importance(feature_names = sparse_matrix@Dimnames[[2]], model = bst)
expect_equal(dim(importance), c(7, 4)) expect_equal(dim(importance), c(7, 4))
expect_equal(colnames(importance), c("Feature", "Gain", "Cover", "Frequency")) expect_equal(colnames(importance), c("Feature", "Gain", "Cover", "Frequency"))
xgb.importance(model = bst)
}) })
test_that("xgb.plot.tree works", { test_that("xgb.plot.tree works with and without feature names", {
xgb.plot.tree(feature_names = agaricus.train$data@Dimnames[[2]], model = bst) xgb.plot.tree(feature_names = feature.names, model = bst)
xgb.plot.tree(model = bst)
}) })
test_that("xgb.plot.multi.trees works with and without feature names", {
xgb.plot.multi.trees(model = bst, feature_names = feature.names, features.keep = 3)
xgb.plot.multi.trees(model = bst, features.keep = 3)
})
test_that("xgb.plot.deepness works", { test_that("xgb.plot.deepness works", {
xgb.plot.deepness(model = bst) xgb.plot.deepness(model = bst)
}) })
test_that("xgb.plot.multi.trees works", {
xgb.plot.multi.trees(model = bst, feature_names = agaricus.train$data@Dimnames[[2]], 3)
})