- SCMarker:选择表达水平呈双/模态分布,并且与其他一些基因共同表达或相互排斥性表达的基因。
论文链接
library(SCMarker)
scMarker <- function(data){
Res <- ModalFilter(data = data, geneK = 10, cellK = 10)
Res <- GeneFilter(obj = Res)
Res <- getMarker(obj = Res, k = 300, n = 30)
scMarker_genes <- Res$marker
return(scMarker_genes)
}
- Seurat:首先利用局部加权回归(Locally Weighted Linear Regression, loess)[13]对基因表达量的均值和方差的对数拟合一条直线,然后利用观测均值和期望方差对基因表达量进行标准化,最后根据标准化的表达量计算方差,选取最高排名基因,称为高度可变基因。
论文链接
HVG <- function(data){
s=nrow(data)*0.1
s=floor(s)
pbmc_small <- CreateSeuratObject(data)
pbmc_small <- NormalizeData(object = pbmc_small)
pbmc_small <- FindVariableFeatures(object = pbmc_small,nfeatures = s)
pbmc_small <- ScaleData(object = pbmc_small)
Seurat_genes=pbmc_smal