Commits

Anonymous committed d8c24e6

Rename stdev' to stddevUnbiased

Comments (0)

Files changed (1)

Data/Monoid/Statistics/Numeric.hs

 {-# LANGUAGE MultiParamTypeClasses #-}
 module Data.Monoid.Statistics.Numeric ( Mean(..)
                                       , Stdev()
-                                      , stdev, stdev', variance, mean
+                                      , stdev
+                                      , stdevUnbiased
+                                      , variance
+                                      , mean
                                       , ConvertibleToDouble(..)
                                       ) where
 
 
 -- | Calculate standard deviation of the sample
 -- (unbiased estimator, $\sigma$, where the denominator is $n$).
-stdev' :: Stdev -> Double
-stdev' !s = sqrt $ m2 / n
+stdevUnbiased :: Stdev -> Double
+stdevUnbiased !s = sqrt $ m2 / n
   where n = fromIntegral $ stdev'n s
         m2 = stdev'sumsq s
 
   pappend !x !s = s `mappend` (Stdev (toDouble x) 0 1)
   {-# INLINE pappend #-}
 
+
+
 ----------------------------------------------------------------
 -- Conversion to Double
 ----------------------------------------------------------------