@@ -1,4 +1,7 @@

 test_sparseMethods <- function(){

+  

+  set.seed(123)

+  

   m <- matrix(sample.int(10, 25, T), 10, 10)

   colnames(m) <- paste0("cell_", 1:10)

   rownames(m) <- paste0("gene_", 1:10)

@@ -12,4 +15,4 @@ test_sparseMethods <- function(){

   checkEqualsNumeric(gsva(m, gene.sets, method="plage"), gsva(M, gene.sets, method="plage"))

   checkEqualsNumeric(gsva(m, gene.sets, method="zscore"), gsva(M, gene.sets, method="zscore"))

   checkEqualsNumeric(gsva(m, gene.sets, method="ssgsea"), gsva(M, gene.sets, method="ssgsea"))

-}

\ No newline at end of file

+}