diff bin/align.pm @ 22:59c728d31244 draft

Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:44:09 -0400
parents 8ea13dab3435
children 36e45a7b3eff
line wrap: on
line diff
--- a/bin/align.pm	Sun May 13 15:40:38 2018 -0400
+++ b/bin/align.pm	Sun May 13 15:44:09 2018 -0400
@@ -332,7 +332,7 @@
             else
             { 
               $numberM{$line[2]}->[2]++; 
-              $numberN{$line[2]}->[4]++ if $seq[9] eq 'A';
+              $numberM{$line[2]}->[4]++ if $seq[9] eq 'A';
             } 
           } 
       	}