Mercurial > repos > artbio > probecoverage

diff probecoverage.r @ 4:daec4df60281 draft
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/probecoverage commit 2b4a222804a40730abdaec6fb6aefc2295e89e11
author: artbio
date: Sun, 24 Sep 2017 18:10:12 -0400
parents: 4f744d3aaf0b
children: bea8435e1e79
--- a/probecoverage.r	Sun Sep 24 14:47:11 2017 -0400
+++ b/probecoverage.r	Sun Sep 24 18:10:12 2017 -0400
@@ -40,7 +40,12 @@
 
 ## end of function
 ## let's do a dataframe before plotting
-maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
+if (args$method == 'bedtools') {
+    maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
+    } else {
+    maxdepth <- trunc(max(Table[,5:length(Table)])) + 20
+    }
+
 graphpoints <- data.frame(1:maxdepth)
 i <- 5
 for (colonne in colnames(Table)[5:length(colnames(Table))]) {