Fix downsampling logic for QuSAGE

r.scripts/sc-TissueMapper.R

@@ -473,7 +473,7 @@ scQuSAGE <- function(sc10x,gs,res.use=0.1,ds=25000,nm="Lin",folder="lin"){
   number.clusters <- length(unique(sc10x@ident))
   
   labels <- paste0("Cluster_",as.vector(factor(sc10x@ident)))
-  if ((ncol(sc10x@data)<ds & ds!=0)){
+  if ((ncol(sc10x@data)>ds & ds!=0)){
     rnd <- sample(1:ncol(sc10x@data),ds)
     data <- sc10x@data[,rnd]
     labels <- labels[rnd]
@@ -618,7 +618,7 @@ scQuSAGEsm <- function(sc10x,gs,ds=25000,nm="Lin",folder="lin"){
   clusters <- unique(sc10x@ident)
   
   labels <- as.vector(factor(sc10x@ident))
-  if ((ncol(sc10x@data)<ds & ds!=0)){
+  if ((ncol(sc10x@data)>ds & ds!=0)){
     rnd <- sample(1:ncol(sc10x@data),ds)
     data <- sc10x@data[,rnd]
     labels <- labels[rnd]
@@ -722,7 +722,7 @@ scQuSAGElg <- function(sc10x,gs,ds=25000,nm="Lin",folder="lin"){
   clusters <- unique(sc10x@ident)
   
   labels <- as.vector(factor(sc10x@ident))
-  if ((ncol(sc10x@data)<ds & ds!=0)){
+  if ((ncol(sc10x@data)>ds & ds!=0)){
     rnd <- sample(1:ncol(sc10x@data),ds)
     data <- sc10x@data[,rnd]
     labels <- labels[rnd]