diff options
Diffstat (limited to 'src/scrape.hs')
-rw-r--r-- | src/scrape.hs | 4 |
1 files 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 |