removing the print statements

Author: ashishjain1988

R/teEnrichment.R

@@ -235,8 +235,8 @@ teEnrichment <- function(inputGenes = NULL, rnaSeqDataset = 1,
 
     #### Calculate the Hypergeometric P-Value#########
     tissueNames <- as.character(tissueDetails$RName)
-    print(paste0("Total background genes:",nrow(geneMappingForCurrentDataset)))
-    print(paste0("Total input genes:",length(inputEnsemblGenes)))
+    #print(paste0("Total background genes:",nrow(geneMappingForCurrentDataset)))
+    #print(paste0("Total input genes:",length(inputEnsemblGenes)))
     x <- lapply(tissueNames, FUN = function(tissue) {
 
         tissueGenes <- finalTissueSpecificGenes %>%
@@ -309,7 +309,7 @@ teEnrichment <- function(inputGenes = NULL, rnaSeqDataset = 1,
         nTeGenesInTissue <- nrow(tissueGenes)
         nTotalGenes <- nrow(geneMappingForCurrentDataset)
         nTotalInputGenes <- length(inputEnsemblGenes)
-        print(paste0("Total TS genes in ",tissue," ",nTeGenesInTissue))
+        #print(paste0("Total TS genes in ",tissue," ",nTeGenesInTissue))
         pValue <- stats::phyper(overlapGenes - 1, nTeGenesInTissue,
             nTotalGenes - nTeGenesInTissue,
             nTotalInputGenes, lower.tail = FALSE)