Description Usage Arguments Details Value Author(s) Examples
View source: R/markerEnrichment.R
Find enriched markers per identified cluster and calculate cluster abundances across these for samples and metadata variables.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
indata |
A data-frame or matrix, or |
meta |
If 'indata' is a non- |
assay |
Name of the assay slot in |
sampleAbundances |
Logical, indicating whether or not to calculate cluster abundances across study samples. |
sampleID |
If |
studyvarID |
A column name from the provided metadata representing a condition or trait over which cluster abundances will be calculated. |
clusterAssign |
A vector of cell-to-cluster assignments. This can be
from any source but must align with your cells / variables. There is no
check to ensure this when 'indata' is not a |
funcSummarise |
A mathematical function used to summarise expression per marker per cluster. |
method |
Type of summarisation to apply to the data for final marker
selection. Possible values include |
prob |
See details for |
limits |
See details for |
verbose |
Boolean (TRUE / FALSE) to print messages to console or not. |
Find enriched markers per identified cluster and calculate cluster abundances across these for samples and metadata variables. markerEnrichment
first collapses your input data's expression profiles from the level of cells to the level of clusters based on a mathematical function specified by funcSummarise
. It then either selects, per cluster, low|high markers via quantiles, or transforms this collapsed data to global Z-scores and selects low|high markers based on Z-score cut-offs.
A data.frame
object.
Kevin Blighe <kevin@clinicalbioinformatics.co.uk>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # create random data that follows a negative binomial
mat <- jitter(matrix(
MASS::rnegbin(rexp(1000, rate=.1), theta = 4.5),
ncol = 20))
colnames(mat) <- paste0('CD', 1:ncol(mat))
rownames(mat) <- paste0('cell', 1:nrow(mat))
u <- umap::umap(mat)$layout
colnames(u) <- c('UMAP1','UMAP2')
rownames(u) <- rownames(mat)
clus <- clusKNN(u)
metadata <- data.frame(
group = c(rep('PB1', 25), rep('PB2', 25)),
row.names = rownames(u))
markerEnrichment(t(mat), meta = metadata,
sampleAbundances = FALSE,
studyvarID = 'group', clusterAssign = clus)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.