require(zellkonverter) require(SingleCellExperiment) require(scDblFinder) #---------------------# object_used <- readH5AD("/data/Zhiyong/AAA__Work/Raw-matrix.h5ad") kk_matrix = as.matrix(object_used@assays@data$X) kk_meta <- as.data.frame(object_used@colData) expected_doublet_rate_used = (dim(object_used)[2]/10000)*0.04 object_used <- scDblFinder(sce=kk_matrix, clusters = as.vector(kk_meta$leiden), dbr=expected_doublet_rate_used)
注意使用的
cluster数量,cluster越多,识别出的Doublets的比例越高
参数:
dbr=: 预计的doublet的比例
dbr.sd=: 允许使用的dbr围绕给定dbr的波动范围,默认是40%