+1
-1
R/scImmuCC.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")