statistics 0.16.0.0 → 0.16.0.1
raw patch · 2 files changed
+7/−7 lines, 2 files
Files
- Statistics/Distribution/Gamma.hs +6/−6
- statistics.cabal +1/−1
Statistics/Distribution/Gamma.hs view
@@ -41,8 +41,8 @@ import Statistics.Distribution.Poisson.Internal as Poisson import qualified Statistics.Distribution as D import Statistics.Internal-import Numeric.MathFunctions.Comparison + -- | The gamma distribution. data GammaDistribution = GD { gdShape :: {-# UNPACK #-} !Double -- ^ Shape parameter, /k/.@@ -127,10 +127,10 @@ density = density logDensity (GD k theta) x | x <= 0 = m_neg_inf- | otherwise = Sum.sum Sum.kbn [ log x * (k - 1) -- 300.60- , - (x / theta) -- -56.001- , - logGamma k -- -274.6239773- , - log theta * k -- +7.6e-3 + | otherwise = Sum.sum Sum.kbn [ log x * (k - 1)+ , - (x / theta)+ , - logGamma k+ , - log theta * k ] quantile = quantile @@ -138,7 +138,7 @@ variance (GD a l) = a * l * l instance D.Mean GammaDistribution where- mean (GD a l) = a * lп+ mean (GD a l) = a * l instance D.MaybeMean GammaDistribution where maybeMean = Just . D.mean
statistics.cabal view
@@ -1,5 +1,5 @@ name: statistics-version: 0.16.0.0+version: 0.16.0.1 synopsis: A library of statistical types, data, and functions description: This library provides a number of common functions and types useful