byarielm.fyi
+2
-2
R/scImmuCC.R
+2
-2
R/scImmuCC.R
···
58
58
59
59
cell_type2 <- unique(ssGSEA_Tcell[,2])
60
60
61
-
if("CD4_T" %in% cell_type){
61
+
if("CD4_T" %in% cell_type2){
62
62
sub_ssGSEA_CD4 <- ssGSEA_Tcell[which(ssGSEA_Tcell[,2]=="CD4_T"),]
63
63
sub_count_CD4 <- count[,sub_ssGSEA_CD4[,1]]
64
64
sub_count_CD4 <- as.matrix(sub_count_CD4)
···
71
71
}
72
72
73
73
74
-
if("CD8_T" %in% cell_type){
74
+
if("CD8_T" %in% cell_type2){
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)