Description Usage Arguments Value Author(s) Examples
aggTSE
aggregates values on the leaf nodes of a tree to a specific
arbitrary level of the tree. The level is specified via the nodes of the
tree. Users could decide on which dimension (row or column) and how should
the aggregation be performed.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
x |
A |
rowLevel |
A numeric (node numbers) or character (node labels) vector.
It provides the level on the tree that data is aggregated to. The
aggregation is on the row dimension. The default is |
rowBlock |
A column name in the |
colLevel |
A numeric (node numbers) or character (node labels) vector.
It provides the level on the tree that data is aggregated to. The
aggregation is on the column dimension. The default is |
colBlock |
A column name in the |
rowFun |
A function to be applied on the row aggregation. It's similar
to the |
colFun |
A function to be applied on the col aggregation. It's similar
to the |
whichRowTree |
A integer scalar or string indicating which row tree is used in the aggregation. The first row tree is used as default. |
whichColTree |
A integer scalar or string indicating which row tree is used in the aggregation. The first row tree is used as default. |
whichAssay |
A integer scalar or string indicating which assay of
|
message |
A logical value. The default is TRUE. If TRUE, it will print out the running process. |
rowDataCols |
The rowData columns to include. |
colDataCols |
The colData columns to include. |
rowFirst |
TRUE or FALSE. If the aggregation is in both dims., it is
performed firstly on the row dim for |
BPPARAM |
Default is |
A TreeSummarizedExperiment
object
Ruizhu HUANG
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | # assays data
set.seed(1)
toyTable <- matrix(rnbinom(20, size = 1, mu = 10), nrow = 5)
colnames(toyTable) <- paste(rep(LETTERS[1:2], each = 2),
rep(1:2, 2), sep = "_")
rownames(toyTable) <- paste("entity", seq_len(5), sep = "")
toyTable
# the column data
colInf <- DataFrame(gg = c(1, 2, 3, 3),
group = rep(LETTERS[1:2], each = 2),
row.names = colnames(toyTable))
colInf
# the toy tree
library(ape)
set.seed(4)
treeC <- rtree(4)
treeC$node.label <- c("All", "GroupA", "GroupB")
library(ggtree)
ggtree(treeC, size = 2) +
geom_text2(aes(label = node), color = "darkblue",
hjust = -0.5, vjust = 0.7, size = 6) +
geom_text2(aes(label = label), color = "darkorange",
hjust = -0.1, vjust = -0.7, size = 6)
tse <- TreeSummarizedExperiment(assays = list(toyTable),
colData = colInf,
colTree = treeC,
colNodeLab = treeC$tip.label,
metadata = list(test = 1:4))
aggCol <- aggTSE(x = tse, colLevel = c("GroupA", "GroupB"),
colFun = sum)
assays(aggCol)[[1]]
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.