From 7be1fcef8473676d1ddea61646a78c0d70cd1606 Mon Sep 17 00:00:00 2001 From: "Marvin N. Wright" Date: Tue, 13 Aug 2024 11:35:23 +0200 Subject: [PATCH] fix regularization test --- tests/testthat/test_regularization.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test_regularization.R b/tests/testthat/test_regularization.R index fbbbed299..68d8bc380 100644 --- a/tests/testthat/test_regularization.R +++ b/tests/testthat/test_regularization.R @@ -132,7 +132,7 @@ test_that("Fewer variables used with regularization, survival extratrees", { rf_noreg <- ranger(Surv(time, status) ~ ., dat_surv, num.trees = 5, min.node.size = 10, mtry = 4, splitrule = "extratrees") rf_reg <- ranger(Surv(time, status) ~ ., dat_surv, num.trees = 5, min.node.size = 10, mtry = 4, splitrule = "extratrees", num.threads = 1, regularization.factor = .0001, regularization.usedepth = TRUE) - expect_lt(get_num_splitvars(rf_reg), + expect_lte(get_num_splitvars(rf_reg), get_num_splitvars(rf_noreg)) })