Mercurial > repos > brasset_jensen > srnapipe
comparison bin/align.pm @ 22:59c728d31244 draft
Uploaded
author | brasset_jensen |
---|---|
date | Sun, 13 May 2018 15:44:09 -0400 |
parents | 8ea13dab3435 |
children | 36e45a7b3eff |
comparison
equal
deleted
inserted
replaced
21:b80aa719069f | 22:59c728d31244 |
---|---|
330 $numberM{$line[2]}->[3]++ if $seq[0] eq 'T'; | 330 $numberM{$line[2]}->[3]++ if $seq[0] eq 'T'; |
331 } | 331 } |
332 else | 332 else |
333 { | 333 { |
334 $numberM{$line[2]}->[2]++; | 334 $numberM{$line[2]}->[2]++; |
335 $numberN{$line[2]}->[4]++ if $seq[9] eq 'A'; | 335 $numberM{$line[2]}->[4]++ if $seq[9] eq 'A'; |
336 } | 336 } |
337 } | 337 } |
338 } | 338 } |
339 } | 339 } |
340 } | 340 } |