From 1ad201ae4a9c523633ba562605600e4386d02ea4 Mon Sep 17 00:00:00 2001 From: "Marvin N. Wright" Date: Tue, 13 Aug 2024 11:08:07 +0200 Subject: [PATCH] use same seed in poisson test --- tests/testthat/test_poissonsplit.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_poissonsplit.R b/tests/testthat/test_poissonsplit.R index 2640d0b48..3b7d76943 100644 --- a/tests/testthat/test_poissonsplit.R +++ b/tests/testthat/test_poissonsplit.R @@ -34,8 +34,8 @@ test_that("poisson splitting works on poisson distributed data", { n_test = (max(n_train)+1):n df_train = df[n_train, ] df_test = df[n_test, ] - rf_poi <- ranger(y ~ ., df_train, splitrule = "poisson", num.trees = 50, min.node.size = 50, poisson.tau = 1, seed = 12) - rf_mse <- ranger(y ~ ., df_train, splitrule = "variance", num.trees = 50, min.node.size = 50, seed = 13) + rf_poi <- ranger(y ~ ., df_train, splitrule = "poisson", num.trees = 50, min.node.size = 50, poisson.tau = 1, seed = 123) + rf_mse <- ranger(y ~ ., df_train, splitrule = "variance", num.trees = 50, min.node.size = 50, seed = 123) expect_is(rf_poi, "ranger") # deviance on test set