Fix sc_QuSAGE_StSubClust.R for scDEG

r.scripts/sc_QuSAGE_StSubClust.R

@@ -216,7 +216,7 @@ if (opt$sc==TRUE){
   min.x.rg.sc <- 0
   max.y.rg.sc <- 0
   for (i in 1:Number.Clusters){
-    qs <- get(paste0("qs.results.epi.sc.",i))
+    qs <- get(paste0("qs.results.st.sc.",i))
     if (max(qs$path.mean)>max.x.rg.sc){
       max.x.rg.sc <- max(qs$path.mean)
       if (min(qs$path.mean)<min.x.rg.sc){