From 43ff22c5dd5d68ffd27dde855726b7a04b76258c Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Mon, 27 Jan 2020 22:06:33 +0100
Subject: [PATCH] Show results of bootstrap

---
 app/Main.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/app/Main.hs b/app/Main.hs
index aae1a01..87805f1 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -28,6 +28,8 @@ import Data.Map.Strict as M
 import qualified Data.Map.Lazy as LM
 import Data.Set as S
 
+import Data.Conduit.Bootstrap (defaultConfidenceLevel, getConfidenceBounds)
+
 main :: IO ()
 main = do
   args <- getArgs
@@ -114,6 +116,12 @@ formatTheMetricAndResult mPrecision (scheme, val) = (evaluationSchemeName scheme
 
 formatTheResult :: Maybe Int -> MetricResult -> String
 formatTheResult mPrecision (SimpleRun val) = formatSimpleResult mPrecision val
+formatTheResult mPrecision (BootstrapResampling vals) = (formatSimpleResult mPrecision pointEstimate)
+                                                        ++ "±"
+                                                        ++ (formatSimpleResult mPrecision errorBound)
+    where pointEstimate = (upperBound + lowerBound) / 2.0
+          errorBound = (upperBound - lowerBound) / 2.0
+          (lowerBound, upperBound) = getConfidenceBounds defaultConfidenceLevel vals
 
 formatSimpleResult :: Maybe Int -> MetricValue -> String
 formatSimpleResult Nothing = show