main = do

  frame <- readTable "coal-times.csv"

  let times = frame $$ ("time", AsDouble)

  mcmc $ model (1851.0,1963.0) times
main = do

  frame <- readTable "coal-times.csv"

  let times = frame $$ ("time", AsDouble)

  mcmc $ model (1851.0,1963.0) times
main = do

  frame <- readTable "coal-times.csv"

  let times = frame $$ ("time", AsDouble)

  mcmc $ model (1851.0,1963.0) times