QC fixed message

imgag · Dec 10, 2018 · 8555e10 · 8555e10
1 parent d180ba1
commit 8555e10
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/somatic/germlineSolver.R b/somatic/germlineSolver.R
@@ -193,8 +193,8 @@ for (sam_no in 1:ncol(coverage.normalised)) {
   finalPValue = 1.0
   fileToOut <- paste0(folder_name, sample_name, paste0("/", sample_name, "_cnvs.tsv"))
   fileConn<-file(fileToOut)
-  writeLines(c(paste("##number of iterations:", iterations,  collapse = " ")), fileConn)
-  writeLines(c(paste("##number of outliers:", round(median(vectorWithNumberOfOutliers), digits=3), collapse = " ")), fileConn)
+  writeLines(c(paste("##number of iterations:", iterations,  collapse = " "), 
+               paste("##fraction of outliers:", round(median(vectorWithNumberOfOutliers), digits=3), collapse = " ")), fileConn)
   close(fileConn)
   write.table(found_CNVs_total, file = fileToOut, quote=F, row.names = F, sep="\t", append = T)
 }