Change stress cutoff from 95% to 90%

r.scripts/sc-TissueMapper_RUN.D17.R

@@ -140,7 +140,7 @@ rm(results)
 sc10x <- scCluster(sc10x,pc.use=pc.use.prestress,res.use=opt$res.prestress,folder="pre.stress")
 
 if (opt$st==TRUE){
-  results <- scStress(sc10x,stg=opt$stg,res.use=opt$res.prestress,pc.use=pc.use.prestress,cut=0.95)
+  results <- scStress(sc10x,stg=opt$stg,res.use=opt$res.prestress,pc.use=pc.use.prestress,cut=0.9)
   sc10x <- results[[1]]
   counts.cell.filtered.stress <- results[[2]]
   sc10x.Stress <- results[[3]]