From 0bb24944e6bef5a7c4d9ff5794db82660effee14 Mon Sep 17 00:00:00 2001 From: Jeremy Miller Date: Wed, 22 Jan 2020 13:19:25 -0800 Subject: [PATCH] Error correction in filterPanelGenes --- R/markerGenesAndMapping.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/markerGenesAndMapping.r b/R/markerGenesAndMapping.r index a04e054..f9e2e02 100644 --- 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)