From cbde1996dc50eeafc3d0e360fd7c7f741b251bd6 Mon Sep 17 00:00:00 2001 From: Eric Ihli Date: Thu, 24 Dec 2020 05:48:22 -0800 Subject: [PATCH] Fix bug, correct probabilities --- src/com/owoga/prhyme/util/math.clj | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/com/owoga/prhyme/util/math.clj b/src/com/owoga/prhyme/util/math.clj index c6101fc..5e804b3 100644 --- a/src/com/owoga/prhyme/util/math.clj +++ b/src/com/owoga/prhyme/util/math.clj @@ -312,9 +312,8 @@ lgt? e (conj estimations estimation))))) - #_#_ N* (apply + (map #(apply * %) (map vector rs estimations))) - ] - [estimations])) + N* (apply + (map #(apply * %) (map vector nrs estimations)))] + [(map #(* (- 1 p0) (/ % N*)) estimations)])) (comment (let [rs [1 2 3 4 5 6 7 8 9 10 12 26]