TypeRacerProgress.fsx

#I @"C:\Bib\Projects"
#load @"Lib\Charting.fsx"
#r @"FSharp.Data\bin\FSharp.Data.dll"

open FSharp.Charting
open FSharp.Data

type Runs = CsvProvider<"""C:\Users\dgrenier\Desktop\race_data.csv""">

query {
    for run in (Runs.Load @"C:\Users\dgrenier\Desktop\race_data.csv").Data do
    where (run.``Date/Time (UTC)``.Year = 2013)
    groupValBy run.WPM run.``Date/Time (UTC)``.Month into g
    select (g.Key, g |> Seq.averageBy float)
}
|> Seq.toArray
|> Chart.Line