... | ... |
@@ -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, |