Skip to content

F1 score for Haskell #29

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
rheber wants to merge 1 commit into
base: master
Choose a base branch
from
Open

F1 score for Haskell #29

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 15 additions & 1 deletion Haskell/Metrics.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -15,9 +15,10 @@ module Metrics
, mapk
, auc, fstEqual, auc1, sumRank, sumEl
, ce
, f1
) where

import Data.List (groupBy, sort)
import Data.List ((\\), groupBy, intersect, nub, sort)
import Math.Statistics (mean)

ae :: Num a => a -> a -> a
Expand Down Expand Up @@ -88,6 +89,19 @@ ce :: Eq a => [a] -> [a] -> Double
ce actual predicted = ((sum [1.0 | (a,p) <- (zip actual predicted), a/=p])
/ (fromIntegral (length actual)))

f1 :: Eq a => [a] -> [a] -> Double
f1 actual predicted =
if precision == 0 && recall == 0
then 0
else 2 * precision * recall / (precision + recall)
where act = nub actual
pred = nub predicted
tp = fromIntegral $ length $ intersect act pred
fp = fromIntegral $ length $ pred \\ act
fn = fromIntegral $ length $ act \\ pred
precision = if tp == 0 && fp == 0 then 0 else tp / (tp + fp)
recall = if tp == 0 && fn == 0 then 0 else tp / (tp + fn)

levenshtein :: Eq a => [a] -> [a] -> Int
levenshtein s t =
d !! (length s) !! (length t)
Expand Down
6 changes: 6 additions & 0 deletions Haskell/testMetrics.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,11 @@ ceTests = TestList [ testEqual "ce1" 0.0 (ce [1,1,1,0,0,0] [1,1,1,0,0,0])
, testEqual "ce5" 1 (ce ["cat","dog","bird"] ["caat","doog","biird"])
]

f1Tests = TestList [ testEqual "f1-1" 0.8 (f1 [3,4,5] [3,4])
, testEqual "f1-2" 0.0 (f1 [7,1] [0])
, testEqual "f1-3" 0.0 (f1 [7] [1,1])
]

levenshteinTests = TestList [ testEqual "levenshtein1" 5 (levenshtein "intention" "execution")
, testEqual "levenshtein2" 3 (levenshtein "sitting" "kitten")
, testEqual "levenshtein3" 3 (levenshtein "Saturday" "Sunday")
Expand Down Expand Up @@ -120,6 +125,7 @@ allTests = TestList [ aeTests
, apkTests
, aucTests
, ceTests
, f1Tests
, levenshteinTests
, llTests
, logLossTests
Expand Down
2 changes: 1 addition & 1 deletion README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ EVALUATION METRICS
<tr><td>Average Precision at K (APK, AP@K)</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td></tr>
<tr><td>Area Under the ROC (AUC)</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td></tr>
<tr><td>Classification Error (CE)</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td></tr>
<tr><td>F1 Score (F1)</td><td> </td><td>&#10003;</td><td> </td><td></td></tr>
<tr><td>F1 Score (F1)</td><td> </td><td>&#10003;</td><td>&#10003;</td><td></td></tr>
<tr><td>Gini</td><td> </td><td> </td><td> </td><td>&#10003;</td></tr>
<tr><td>Levenshtein</td><td>&#10003;</td><td> </td><td>&#10003;</td><td>&#10003;</td></tr>
<tr><td>Log Loss (LL)</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td><td>&#10003;</td></tr>
Expand Down