fix empirical distribution area normalization

closes #61
fslaborg · May 11, 2020 · 75f5262 · 75f5262
1 parent 0d6b4e9
commit 75f5262
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/src/FSharp.Stats/Distributions/Empirical.fs b/src/FSharp.Stats/Distributions/Empirical.fs
@@ -162,11 +162,6 @@ module Empirical =
                 else
                     ((k + 1.) * bandwidth) - halfBw, count)
             |> Seq.sortBy fst
-        let area =
-            tmp
-            |> Seq.pairwise 
-            |> Seq.fold (fun acc ((x0,y0),(x1,y1)) ->                         
-                            acc + (abs (x1 - x0)) * ((y0 + y1) / 2.)) 0.
         tmp    
-        |> Seq.map (fun (a,b) -> (a,b / area))
         |> Map.ofSeq
+        |> normalize