Browse code

removed filterFeatureSparse()

pablo-rodr-bio2 authored on 03/05/2021 18:16:40
Showing1 changed files

... ...
@@ -1,4 +1,7 @@
1 1
 test_sparseMethods <- function(){
2
+  
3
+  set.seed(123)
4
+  
2 5
   m <- matrix(sample.int(10, 25, T), 10, 10)
3 6
   colnames(m) <- paste0("cell_", 1:10)
4 7
   rownames(m) <- paste0("gene_", 1:10)
... ...
@@ -12,4 +15,4 @@ test_sparseMethods <- function(){
12 15
   checkEqualsNumeric(gsva(m, gene.sets, method="plage"), gsva(M, gene.sets, method="plage"))
13 16
   checkEqualsNumeric(gsva(m, gene.sets, method="zscore"), gsva(M, gene.sets, method="zscore"))
14 17
   checkEqualsNumeric(gsva(m, gene.sets, method="ssgsea"), gsva(M, gene.sets, method="ssgsea"))
15
-}
16 18
\ No newline at end of file
19
+}