Browse code

fixing test for positive-zscores only subset

Federico Marini authored on 07/10/2022 12:42:32
Showing 1 changed files

... ...
@@ -34,7 +34,7 @@ test_that("Graph is generated", {
34 34
   )
35 35
   expect_is(g2, "igraph")
36 36
 
37
-  res_pos_z <- res_enrich_withscores[res_enrich_withscores$z_score >= 0, ]
37
+  res_pos_z <- na.omit(res_enrich_withscores[res_enrich_withscores$z_score >= 0, ])
38 38
   g3 <- enrichment_map(
39 39
     res_enrich = res_pos_z,
40 40
     res_de = res_macrophage_IFNg_vs_naive,