| ... | ... |
@@ -87,3 +87,18 @@ if(requireNamespace("pheatmap")) {
|
| 87 | 87 |
callback = function(hc, ...){dendsort(hc)}
|
| 88 | 88 |
compare_pheatmap(test, clustering_callback = callback) |
| 89 | 89 |
} |
| 90 |
+ |
|
| 91 |
+ |
|
| 92 |
+set.seed(42) |
|
| 93 |
+nsamples <- 10 |
|
| 94 |
+ |
|
| 95 |
+mat <- matrix(rpois(20*nsamples, 20), ncol=nsamples) |
|
| 96 |
+colnames(mat) <- paste0("sample", seq_len(ncol(mat)))
|
|
| 97 |
+rownames(mat) <- paste0("gene", seq_len(nrow(mat)))
|
|
| 98 |
+ |
|
| 99 |
+annot <- data.frame( |
|
| 100 |
+ labs = sample(c("A","B","C","D"), size = ncol(mat), replace = TRUE),
|
|
| 101 |
+ row.names = colnames(mat) |
|
| 102 |
+) |
|
| 103 |
+do.call(ComplexHeatmap::pheatmap, ins[1]) |
|
| 104 |
+do.call(ComplexHeatmap::pheatmap, ins) |
