diff options
Diffstat (limited to 'varscan2codon.pl')
| -rwxr-xr-x | varscan2codon.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/varscan2codon.pl b/varscan2codon.pl index 71d880f..e45da77 100755 --- a/varscan2codon.pl +++ b/varscan2codon.pl @@ -66,7 +66,6 @@ while (<$variants>) { my $orig_aa = $aa2letter{$codon2aa{$codon}}; substr $codon, $offset, 1, $new_nt; my $new_aa = $aa2letter{$codon2aa{$codon}}; - my $codon_pos = floor($pos / 3); print "$name\t" . lc($orig_nt) . $pos . lc($new_nt) . "\t$protein\t" . $orig_aa . $aa_index . $new_aa . "\n"; } |