Naive, memory, activation, effector, exhaustion properties of T cells
devtools::install_github('zgyaru/properTy')
library(properTy)
## It is a SingleCellExperiment toy dataset
data = loadExample()
score = properTy(scMat = data@assays@data$counts,
clusterNames = data.frame(data$clusterNames, row.names = colnames(data)))
DensityProp(score,
c('CD8+ Tex-SPRY1', 'CD8+ Tex-XAF1', 'CD8+ Tex-MKI67') ## interested cell cluster names
)
PieProp(score,
c('CD8+ Tex-SPRY1', 'CD8+ Tex-XAF1', 'CD8+ Tex-MKI67') ## interested cell cluster names
)