https://github.com/leegieyoung/scRNAseq/blob/master/Seurat/QC.R scRNAseq 코드 및 변수 설명 QC pipeline (One sample) QC <- function(dir,Sample,type){ print("Read10X") raw.QCdata <- Read10X(data.dir = paste0(dir,"/",Sample)) print("CreateSeuratObject") QCdata <- CreateSeuratObject(counts = raw.QCdata, project = type) QCdata[["percent.mt"]] <- PercentageFeatureSet(QCdata, pattern = "^MT-") QCdata[["percent.he"]] <- PercentageFeatureSet(QCdata, features = hemo) QCdata[["percent.ep"]] <- PercentageFeatureSe...
