From 8555e1056a4167cdd08b3a7f5cef2d6590910894 Mon Sep 17 00:00:00 2001 From: German Demidov Date: Mon, 10 Dec 2018 09:51:15 +0100 Subject: [PATCH] QC fixed message --- somatic/germlineSolver.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/somatic/germlineSolver.R b/somatic/germlineSolver.R index 0012e96..62c455a 100644 --- 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) }