fork/minimap2
1
0
Fork 0
mirror of https://github.com/lh3/minimap2.git synced 2026-10-02 21:28:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

backup

Browse Source
This commit is contained in:
Heng Li
2017-08-02 19:52:31 -04:00
parent 9306299e4d
commit 6c9390b54a
6 changed files with 272 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tex/eval2roc.pl
+15 -2
View File
@@ -4,17 +4,30 @@ use strict;
use warnings;
use Getopt::Std;
my %opts = (n=>33088);
my %opts = (n=>33088, s=>100);
getopts('n:', \%opts);
my $pseudo = .5;
my $tot = $pseudo;
my $err = $pseudo;
my $tot_last_out = -$opts{s};
my $state = 0;
my $mapq = 0;
while (<>) {
chomp;
if (/^Q\t(\d+)\t(\d+)\t(\d+)/) {
$tot += $2;
$err += $3;
print join("\t", $1, $err/$tot, $tot / $opts{n}), "\n";
if ($tot - $tot_last_out >= $opts{s}) {
print join("\t", $1, $err/$tot, $tot / $opts{n}), "\n";
$tot_last_out = $tot;
$state = 0;
} else {
$state = 1;
$mapq = $1;
}
}
}
if ($state) {
print join("\t", $mapq, $err/$tot, $tot / $opts{n}), "\n";
}