posished Calc::standard_deviation

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1201 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Calc.pm b/code_perl/Maasha/Calc.pm
index 5945d4da09f32e7a847fc3aa0795d7df944a7842..6f83fd09d06dceb3faa2fece3bdc905b425b73a0 100644 (file)
--- a/code_perl/Maasha/Calc.pm
+++ b/code_perl/Maasha/Calc.pm
@@ -218,24 +218,24 @@ sub standard_deviation
 
     # Returns a float.
 
-    my ( $mean_num, $num, $div, $div_sum, $mean_div, $std_div );
+    my ( $mean_num, $num, $dev, $dev_sum, $mean_dev, $std_dev );
 
     $mean_num = mean( $numbers );
 
-    $div_sum  = 0;
+    $dev_sum  = 0;
 
     foreach $num ( @{ $numbers } )
     {
-        $div = ( $num - $mean_num ) ** 2;
+        $dev = ( $num - $mean_num ) ** 2;
     
-        $div_sum += $div;
+        $dev_sum += $dev;
     }
 
-    $mean_div = $div_sum / scalar @{ $numbers };
+    $mean_dev = $dev_sum / scalar @{ $numbers };
 
-    $std_div  = sqrt( abs( $mean_div ) );
+    $std_dev  = sqrt( $mean_dev );
 
-    return $std_div;
+    return $std_dev;
 }