Fix downsampling in stress and ne

r.scripts/sc-TissueMapper.R

@@ -401,7 +401,7 @@ scStress <- function(sc10x,stg="go",res.use=1,pc.use=10,cut=0.95){
   dev.off()
   
   #Subsample all cells (+Stress) to better visualize their clustering
-  if (ncol(sc10x@data)<2500){
+  if (ncol(sc10x@data)>2500){
     rnd <- sample(1:ncol(sc10x@data),2500)
   } else {
     rnd <- 1:ncol(sc10x@data)
@@ -898,7 +898,7 @@ scNE <- function(sc10x,neg="EurUro",cut=0.95){
   dev.off()
   
   #Subsample all cells (+NE) to better visualize their clustering
-  if (ncol(sc10x@data)<2500){
+  if (ncol(sc10x@data)>2500){
     rnd <- sample(1:ncol(sc10x@data),2500)
   } else {
     rnd <- 1:ncol(sc10x@data)