add set.seed() for smotefamily::sample_generator()

mlr-org · Jan 13, 2025 · a447256 · a447256
1 parent b1042d7
commit a447256
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test_pipeop_blsmote.R b/tests/testthat/test_pipeop_blsmote.R
@@ -13,6 +13,7 @@ test_that("PipeOpBLSmote - train works as intended", {
 
   op = PipeOpBLSmote$new()
 
+  set.seed(1234)
   df = smotefamily::sample_generator(500, 0.8)
   df$result = factor(df$result)
   df = df[, c(3L, 1L, 2L)]  # we do this to avoid reordering later
@@ -75,6 +76,7 @@ test_that("PipeOpBLSmote - handling of feature named 'class'", {
 
   op = PipeOpBLSmote$new()
 
+  set.seed(1234)
   df = smotefamily::sample_generator(500, 0.8)
   df$result = factor(df$result)
   # Rename a column into "class"