Fixed unit tests.

sritchie73 · Jun 16, 2015 · 0fbcc05 · 0fbcc05
1 parent 80925d8
commit 0fbcc05
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/inst/tests/test-main.R b/inst/tests/test-main.R
@@ -31,7 +31,7 @@ test_that("Network properties function runs without error", {
 test_that("Main routine runs and produces sane output", {
   res1 <- modulePreservation(
     exprSets, coexpSets, adjSets, moduleAssignments, 1, 2, nPerm=10, 
-    keepNulls=TRUE, lowmem=FALSE, verbose=FALSE
+    keepNulls=TRUE, verbose=FALSE
   )
   expect_equal(dim(res1$nulls), c(7, 7, 10))
   expect_equal(dim(res1$observed), c(7, 7))
@@ -40,7 +40,7 @@ test_that("Main routine runs and produces sane output", {
   expect_equal(length(res1$nGenesPresent), 7)
   res2 <- modulePreservation(
     NULL, coexpSets, adjSets, moduleAssignments, 1, 2, nPerm=10,
-    keepNulls=TRUE, lowmem=FALSE, verbose=FALSE
+    keepNulls=TRUE, verbose=FALSE
   )
   expect_equal(dim(res2$nulls), c(7, 4, 10))
   expect_equal(dim(res2$observed), c(7, 4))
@@ -52,7 +52,7 @@ test_that("Main routine runs and produces sane output", {
   names(moduleAssignments[[2]]) <- gn2
   res1 <- modulePreservation(
     exprSets, coexpSets, rev(adjSets), moduleAssignments, "a", "b", nPerm=10,
-    includeModules=c(1,2,3), keepNulls=TRUE, lowmem=FALSE, verbose=FALSE
+    includeModules=c(1,2,3), keepNulls=TRUE, verbose=FALSE
   )
 })
 unlink('tmp*')