add more Sys..setenv and optons before calling parmigene

Author: tnaake

tests/testthat/test_methods.R

@@ -21,6 +21,9 @@ x_test_cut <- as.matrix(x_test[, -c(1:2)])
 RNGkind("Mersenne-Twister", "Inversion", "Rejection")
 set.seed(2025)
 Sys.setenv(OMP_NUM_THREADS = 1)
+Sys.setenv(OMP_DYNAMIC = "FALSE")
+Sys.setenv(MKL_NUM_THREADS = 1)
+options(digits = 17)
 stat_adj <- statistical(x_test_cut,
     model = c("clr", "aracne", "pearson", "spearman"))
 stat_adj_thr <- threshold(am = stat_adj, type = "top2", args = list(n = 10))