Stop plotting stress hist

r.scripts/sc_PC.Score.Stress.R

@@ -75,7 +75,7 @@ plot(plot)
 dev.off()
 
 #find first turning point on a KDE of Stress1
-histo <- hist(GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=1),breaks=10,prob=TRUE,plot=TRUE)
+histo <- hist(GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=1),breaks=10,prob=TRUE,plot=FALSE)
 d1 <- density(GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=1),n=50)
 #d2 <- density(GetCellEmbeddings(object=sc10x.Group,reduction.type="Stress",dims.use=2),n=1000)
 ts_1 <- ts(d1$y)