1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative ((<$>))
import Statistics.Sample.KernelDensity (kde)
import Text.Hastache (MuType(..), defaultConfig, hastacheFile)
import Text.Hastache.Context (mkStrContext)
import qualified Data.Attoparsec.ByteString as B
import qualified Data.Attoparsec.ByteString.Char8 as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
import qualified Data.Vector.Unboxed as U
import qualified Data.Text.Lazy.IO as TL
csv = do
B.takeTill A.isEndOfLine
(A.double `A.sepBy` A.char ',') `A.sepBy` A.endOfLine
main = do
waits <- (either error (U.fromList . map last . filter (not.null)) .
A.parseOnly csv) <$> B.readFile "data/faithful.csv"
let xs = map (\(a,b) -> [a,b]) . U.toList . uncurry U.zip . kde 64 $ waits
context "data" = MuVariable . show $ xs
s <- hastacheFile defaultConfig "kde.tpl" (mkStrContext context)
TL.writeFile "kde.html" s
|
