Skip to content
Snippets Groups Projects
Commit 80cfe5b5 authored by Gervaise Henry's avatar Gervaise Henry :cowboy:
Browse files

Fix Stress PCA

parent 1b84d533
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
r.scripts/sc_PC.Score.Stress.R
+ 1
− 1
View file @ 80cfe5b5
...@@ -86,7 +86,7 @@ pit1 <- min(d1$x[tp1$pits]) ...@@ -86,7 +86,7 @@ pit1 <- min(d1$x[tp1$pits])
#plot clusters #plot clusters
ALL <- GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=1:2) ALL <- GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=1:2)
Stress <- rownames(ALL[ALL[,1]>pit1) Stress <- rownames(ALL[ALL[,1]>pit1,])
sc10x.Group <- SetAllIdent(object=sc10x.Group,id="ALL") sc10x.Group <- SetAllIdent(object=sc10x.Group,id="ALL")
sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=Stress,ident.use="Stress") sc10x.Group <- SetIdent(object=sc10x.Group,cells.use=Stress,ident.use="Stress")
postscript(paste0("./analysis/",opt$g,"/pc-score/PCS_Stress.Group.eps")) postscript(paste0("./analysis/",opt$g,"/pc-score/PCS_Stress.Group.eps"))
......
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