Fix St QuSAGE

r.scripts/sc_QuSAGE_StSubClust.R

@@ -60,7 +60,7 @@ if (!is.na(opt$s)){
 } else {
   rnd <- 1:ncol(sc10x.Group.St@data)
 }
-eset <- sc10x.Group@data[,rnd]
+eset <- sc10x.Group.St@data[,rnd]
 eset <- as.data.frame(as.matrix(eset))
 labels <- paste0("Cluster_",as.vector(factor(sc10x.Group.St@ident)))
 labels <- labels[rnd]