changeset 28:8d8357dee6b3 draft

Uploaded
author brasset_jensen
date Sun, 20 May 2018 17:53:31 -0400
parents c8090766c3f5
children e10a2311e293
files bin/align.pm
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bin/align.pm	Sun May 20 17:46:23 2018 -0400
+++ b/bin/align.pm	Sun May 20 17:53:31 2018 -0400
@@ -388,7 +388,7 @@
     my $R1U = 0;
     $R1U = $counthashR->{$k}->[6] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0;
     my $S10A = 0;
-    $SA10 = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0;
+    $S10A = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0;
     my $R10A = 0;
     $R10A = $counthashR->{$k}->[4] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0;