feat: fewer print mesaaages in BCCounts

kircherlab · Mar 28, 2022 · c689b5b · c689b5b
1 parent 8871dcd
commit c689b5b
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/workflow/scripts/count/BCCounts_betweenReplicates.R b/workflow/scripts/count/BCCounts_betweenReplicates.R
@@ -49,11 +49,6 @@ num_replicates=length(replicates)
 data <- data.frame(File=files,Replicate=replicates)
 data$Condition <- cond
 
-print(data)
-
-
-
-
 
 getOverlapStats <- function(data1,data2,condition,r1,r2){
   sData1 <- data1 %>% summarize(size=n(), count=sum(Counts))
@@ -89,7 +84,6 @@ getOverlapStats <- function(data1,data2,condition,r1,r2){
 readData <- function(file) {
   data <- read.table(file,sep="\t",as.is=T,header=F,stringsAsFactors = F)
   colnames(data) <- c("Barcode","Counts")
-  print(data)
   return(data)
 }