Update test-utils.R

GRvanderPloeg · Sep 5, 2024 · be979cb · be979cb
1 parent 7a0b7d8
commit be979cb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -18,6 +18,7 @@ test_that("flipLoadings produces a same length list as models input", {
 })
 
 test_that("flipLoadings Fac is not the same as models fac", {
+  set.seed(123)
   processedFujita = processDataCube(Fujita2023, sparsityThreshold=0.99, CLR=TRUE, centerMode=1, scaleMode=2)
   X = processedFujita$data
   models = parafac(X, 2, nstart=10, output="all", sortComponents=TRUE)