Enhancement for #145. Test commit

test(network): added test for ensure that numerical output of `network()` remains stable irrespective of `plot.graph` parameter
mixOmicsTeam · Apr 3, 2022 · b4ac34a · b4ac34a
1 parent 8e09a5d
commit b4ac34a
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-network.R b/tests/testthat/test-network.R
@@ -39,3 +39,17 @@ test_that("network works for spls", {
 })
 
 unlink(list.files(pattern = "*.pdf"))
+
+
+test_that("network plot.graph parameter does not affect numerical output", {
+  data("nutrimouse")
+  X <- nutrimouse$gene
+  Y <- nutrimouse$lipid
+
+  pls.obj <- pls(X, Y)
+
+  network.obj.F <- network(pls.obj, plot.graph = F)
+  network.obj.T <- network(pls.obj, plot.graph = T)
+
+  expect_equal(network.obj.F$M, network.obj.T$M)
+})