Hierarchical annotation of immune cells in scRNA-Seq data based on ssGSEA algorithm. Fork for large datasets with QOL improvements.

Update scImmuCC.R

authored by Yingjiang17 and committed by GitHub f943308c 7e3e7561

Changed files
+1 -1
R
+1 -1
R/scImmuCC.R
··· 75 75 sub_ssGSEA_CD8 <- ssGSEA_Tcell[which(ssGSEA_Tcell[,2]=="CD8_T"),] 76 76 sub_count_CD8 <- count[,sub_ssGSEA_CD8[,1]] 77 77 sub_count_CD8 <- as.matrix(sub_count_CD8) 78 - ssGSEA_CD8 <- scImmuCC_main(sub_count_CD8,CD8_genelist,"Layer3_CD4") 78 + ssGSEA_CD8 <- scImmuCC_main(sub_count_CD8,CD8_genelist,"Layer3_CD8") 79 79 cells <- length(sub_count_CD8[2,]) 80 80 if(cells>50){ 81 81 seurat_CD8 <- seurat_Heatmap(sub_count_CD8,CD8_genelist,ssGSEA_CD8,"Layer3_CD8")