|
...
|
...
|
@@ -24,6 +24,14 @@ test_that("Gene set dendrogram is created", {
|
|
24
|
24
|
expect_is(my_dend2, "dendrogram")
|
|
25
|
25
|
expect_is(my_dend3, "dendrogram")
|
|
26
|
26
|
expect_is(my_dend4, "dendrogram")
|
|
|
27
|
+
|
|
|
28
|
+ my_dend_pval <- gs_dendro(res_enrich_withscores, n_gs = 20,
|
|
|
29
|
+ color_leaves_by = "gs_pvalue")
|
|
|
30
|
+ expect_is(my_dend_pval, "dendrogram")
|
|
|
31
|
+
|
|
|
32
|
+ re_subset <- res_enrich_withscores[res_enrich_withscores[1:12, ]$z_score >= 0, ]
|
|
|
33
|
+ my_dend_subset <- gs_dendro(re_subset, n_gs = 12, color_leaves_by = "z_score")
|
|
|
34
|
+ expect_is(my_dend_subset, "dendrogram")
|
|
27
|
35
|
|
|
28
|
36
|
expect_warning(gs_dendro(res_enrich_withscores,
|
|
29
|
37
|
n_gs = 5,
|
