diff CoverageReport.pl @ 3:39c374d4cba7 draft

Uploaded
author geert-vandeweyer
date Thu, 13 Feb 2014 04:45:48 -0500
parents 864d0ccfbe6f
children 2936bcb2a378
line wrap: on
line diff
--- a/CoverageReport.pl	Thu Feb 13 04:45:36 2014 -0500
+++ b/CoverageReport.pl	Thu Feb 13 04:45:48 2014 -0500
@@ -235,13 +235,13 @@
 $avg = $sum/$counter;
 close IN;
 open OUT, ">$wd/Rout/hist.txt";
+if (!defined($dens{'0'})) {
+	$dens{'0'} = 0;
+}
 foreach (keys(%dens)) {
 	print OUT "$_;$dens{$_}\n";
 }
 close OUT;
-if (!defined($dens{'0'})) {
-	$dens{'0'} = 0;
-}
 open OUT, ">$wd/Rout/ntplot.R";
 # read coverage hist in R to plot
 print OUT 'coverage <- read.table("hist.txt" , as.is = TRUE, header=FALSE,sep=";")'."\n";