From: Benjamin Auder <benjamin.auder@somewhere>
Date: Tue, 14 Apr 2026 09:00:13 +0000 (+0200)
Subject: Add seeds to tests so that R check never fail
X-Git-Url: https://git.auder.net/app_dev.php/js/scripts/doc/DESCRIPTION?a=commitdiff_plain;h=8191f337eaab1bfb69e74e5a2b0337863361d409;p=morpheus.git

Add seeds to tests so that R check never fail
---

diff --git a/pkg/tests/testthat/test-alignMatrices.R b/pkg/tests/testthat/test-alignMatrices.R
index 63e4bd3..ca18e0c 100644
--- a/pkg/tests/testthat/test-alignMatrices.R
+++ b/pkg/tests/testthat/test-alignMatrices.R
@@ -13,6 +13,7 @@
 
 test_that("labelSwitchingAlign correctly aligns de-noised parameters",
 {
+  set.seed(32)
   N <- 30 #number of matrices
   d_K_list <- list(c(2,2), c(5,3))
   for (i in 1:2)
@@ -41,6 +42,7 @@ test_that("labelSwitchingAlign correctly aligns de-noised parameters",
 
 test_that("labelSwitchingAlign correctly aligns noisy parameters",
 {
+  set.seed(32)
   N <- 30 #number of matrices
   d_K_list <- list(c(2,2), c(5,3))
   for (i in 1:2)
diff --git a/pkg/tests/testthat/test-computeMu.R b/pkg/tests/testthat/test-computeMu.R
index c1fd4f9..44ad9eb 100644
--- a/pkg/tests/testthat/test-computeMu.R
+++ b/pkg/tests/testthat/test-computeMu.R
@@ -1,5 +1,6 @@
 test_that("on input of sufficient size, β/||β|| is estimated accurately enough",
 {
+  set.seed(42)
   n <- 100000
   d <- 2
   K <- 2
diff --git a/pkg/tests/testthat/test-hungarianAlgorithm.R b/pkg/tests/testthat/test-hungarianAlgorithm.R
index 4eacbb9..db41935 100644
--- a/pkg/tests/testthat/test-hungarianAlgorithm.R
+++ b/pkg/tests/testthat/test-hungarianAlgorithm.R
@@ -1,5 +1,6 @@
 test_that("HungarianAlgorithm provides the correct answer on various inputs",
 {
+  set.seed(42)
   for (n in c(2,3,10,50))
   {
     for (repetition in 1:3)
diff --git a/pkg/tests/testthat/test-jointDiag.R b/pkg/tests/testthat/test-jointDiag.R
index 3fb057c..cf87b17 100644
--- a/pkg/tests/testthat/test-jointDiag.R
+++ b/pkg/tests/testthat/test-jointDiag.R
@@ -1,6 +1,7 @@
 #auxiliary to test diagonality
 .computeMuCheckDiag = function(X, Y, K, jd_method, β_ref)
 {
+  set.seed(99)
   d <- ncol(X)
   #TODO: redundant code, same as computeMu() main method. Comments are stripped
   M3 <- .Moments_M3(X,Y)
@@ -30,6 +31,7 @@
 
 test_that("'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix",
 {
+  set.seed(99)
   n <- 10000
   d_K <- list( c(2,2), c(5,3), c(20,13) )