Skip to content
Snippets Groups Projects
Commit 73c25a71 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Fix Epi.sub name in sc_PC.Score.NE.R

parent 1c13edd1
No related merge requests found
Hide whitespace changes
Inline Side-by-side
r.scripts/sc_PC.Score.NE.R
+ 2
− 2
View file @ 73c25a71
...@@ -165,7 +165,7 @@ sc10x.Group@ident <- factor(sc10x.Group@ident,levels=c( ...@@ -165,7 +165,7 @@ sc10x.Group@ident <- factor(sc10x.Group@ident,levels=c(
unique(as.character(sc10x.Group@ident)[grep("^EndoC",as.character(sc10x.Group@ident))]), unique(as.character(sc10x.Group@ident)[grep("^EndoC",as.character(sc10x.Group@ident))]),
unique(as.character(sc10x.Group@ident)[grep("^Peri",as.character(sc10x.Group@ident))]), unique(as.character(sc10x.Group@ident)[grep("^Peri",as.character(sc10x.Group@ident))]),
unique(as.character(sc10x.Group@ident)[grep("^MylImm",as.character(sc10x.Group@ident))]))) unique(as.character(sc10x.Group@ident)[grep("^MylImm",as.character(sc10x.Group@ident))])))
sc10x.Group <- StashIdent(object=sc10x.Group,save.name="Epu.dws+NE") sc10x.Group <- StashIdent(object=sc10x.Group,save.name="Epi.dws+NE")
sc10x.Group <- SetAllIdent(object=sc10x.Group,id="Epi.sub.dws") sc10x.Group <- SetAllIdent(object=sc10x.Group,id="Epi.sub.dws")
sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=clusterCut,ident.use="NE") sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=clusterCut,ident.use="NE")
...@@ -188,7 +188,7 @@ sc10x.Group@ident <- factor(sc10x.Group@ident,levels=c( ...@@ -188,7 +188,7 @@ sc10x.Group@ident <- factor(sc10x.Group@ident,levels=c(
unique(as.character(sc10x.Group@ident)[grep("^EndoC",as.character(sc10x.Group@ident))]), unique(as.character(sc10x.Group@ident)[grep("^EndoC",as.character(sc10x.Group@ident))]),
unique(as.character(sc10x.Group@ident)[grep("^Peri",as.character(sc10x.Group@ident))]), unique(as.character(sc10x.Group@ident)[grep("^Peri",as.character(sc10x.Group@ident))]),
unique(as.character(sc10x.Group@ident)[grep("^MylImm",as.character(sc10x.Group@ident))]))) unique(as.character(sc10x.Group@ident)[grep("^MylImm",as.character(sc10x.Group@ident))])))
sc10x.Group <- StashIdent(object=sc10x.Group,save.name="Epu.sub.dws+NE") sc10x.Group <- StashIdent(object=sc10x.Group,save.name="Epi.sub.dws+NE")
sc10x.Group <- SetAllIdent(object=sc10x.Group,id="SubClust.ID") sc10x.Group <- SetAllIdent(object=sc10x.Group,id="SubClust.ID")
sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=clusterCut,ident.use="NE") sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=clusterCut,ident.use="NE")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment