From 0d55380acb3af5391714b89666a1c008c9c720f4 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Thu, 29 Sep 2022 08:55:35 +1000
Subject: bugfix: estimate of labelling on wrong class

---
 src/scrape.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/scrape.hs b/src/scrape.hs
index 7a5a280..1cccb67 100644
--- a/src/scrape.hs
+++ b/src/scrape.hs
@@ -91,8 +91,8 @@ weightedMean w0 w1 xs =
 
 puCorrection hgvs ys =
   let lab = map notTer hgvs
-   in M.fromListWith (++) (zip lab $ map pure ys) ^. at 1 <&> \nons ->
-        let cf = 1 - mean nons -- NB: reversed due to dms score being lower when Ter
+   in M.fromListWith (++) (zip lab $ map pure ys) ^. at 0 <&> \nonsc ->
+        let cf = 1 - mean nonsc -- NB: reversed due to dms score being lower when Ter
             w0 = 2 / cf
             w1 = 1 / mean lab
          in pava' (weightedMean w0 w1) lab
-- 
cgit v1.2.3