Error correction in filterPanelGenes

AllenInstitute · Jan 22, 2020 · 0bb2494 · 0bb2494
1 parent 1e31362
commit 0bb2494
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/markerGenesAndMapping.r b/R/markerGenesAndMapping.r
@@ -226,7 +226,7 @@ filterPanelGenes <- function(summaryExpr,
   message(paste(sum(keepGenes),"total genes pass constraints prior to binary score calculation."))
   if(sum(keepGenes)<=numBinaryGenes){
     warning("Fewer genes pass constraints than numBinaryGenes, so binary score was not calculated.")
-    return(sort(union(runGenes,startingGenes)))
+    return(sort(union(keepGenes,startingGenes)))
   }
 
   topBeta     <- getBetaScore(propExpr[keepGenes,onClusters],FALSE)