{-# LANGUAGE DeriveGeneric, OverloadedStrings, DataKinds #-}
module Numeric.Datasets.Quakes where
import Numeric.Datasets
import Data.Csv
import GHC.Generics
import Network.HTTP.Req ((/:), http, Scheme(..))
data Quake = Quake
{ lat :: Double
, long :: Double
, depth :: Double
, mag :: Double
, stations :: Int
} deriving (Show, Read, Generic)
instance FromNamedRecord Quake
quakes :: Dataset Quake
quakes = csvHdrDataset
$ URL $ http "vincentarelbundock.github.io" /: "Rdatasets" /: "csv" /: "datasets" /: "quakes.csv"