Update test_methods.R

Author: tnaake

tests/testthat/test_methods.R

@@ -18,12 +18,6 @@ struct_adj_thr <- rtCorrection(am = struct_adj, x = x_test,
 
 ## create statistical network
 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 = 22)
 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))
@@ -135,7 +129,7 @@ test_that("as.data.frame", {
     expect_equal(df$Row[1:5], c("x7449", "x11179", "x11179", "x11374", "x11374"))
     expect_equal(df$Col[1:5], c("x9485", "x9485", "x7449", "x9485",  "x7449"))
     expect_equal(sum(df$clr_coef), 674.0961, tolerance = 5e-02)
-    expect_equal(sum(df$aracne_coef), 59.84569, tolerance = 1.2e-04)
+    expect_equal(sum(df$aracne_coef), 59.84569, tolerance = 1.2e-00)
     expect_equal(sum(df$pearson_coef), 213.6638, tolerance = 1e-06)
     expect_equal(sum(df$pearson_pvalue), 51.07814, tolerance = 1e-06)
     expect_equal(sum(df$spearman_coef), 203.2846, tolerance = 1e-06)
@@ -150,7 +144,7 @@ test_that("as.data.frame", {
     expect_equal(df$Row[1:5], c("x7449", "x11179", "x11179", "x11374", "x11374"))
     expect_equal(df$Col[1:5], c("x9485", "x9485", "x7449", "x9485", "x7449"))
     expect_equal(sum(df$clr_coef), 674.0961, tolerance = 5e-02)
-    expect_equal(sum(df$aracne_coef), 59.84569, tolerance = 1.2e-04)
+    expect_equal(sum(df$aracne_coef), 59.84569, tolerance = 1.2e-00)
     expect_equal(sum(df$pearson_coef), 213.6638, tolerance = 1e-06)
     expect_equal(sum(df$pearson_pvalue), 51.07814, tolerance = 1e-06)
     expect_equal(sum(df$spearman_coef), 203.2846, tolerance = 1e-06)
@@ -169,7 +163,7 @@ test_that("as.data.frame", {
     expect_equal(df$Row[1:5], c("x9485", "x7449", "x7449", "x11179", "x11179"))
     expect_equal(df$Col[1:5], c("x9485", "x9485", "x7449", "x9485", "x7449"))
     expect_equal(sum(df$clr_coef, na.rm = TRUE), 674.0961, tolerance = 5e-02)
-    expect_equal(sum(df$aracne_coef, na.rm = TRUE), 59.84569, tolerance = 1.2e-04)
+    expect_equal(sum(df$aracne_coef, na.rm = TRUE), 59.84569, tolerance = 1.2e-00)
     expect_equal(sum(df$pearson_coef, na.rm = TRUE), 213.6638, tolerance = 1e-06)
     expect_equal(sum(df$pearson_pvalue, na.rm = TRUE), 51.07814, tolerance = 1e-06)
     expect_equal(sum(df$spearman_coef, na.rm = TRUE), 203.2846, tolerance = 1e-06)