-- Takes data from the ODE solver and plots them
plotTimeSeries :: LA.Vector Double -> LA.Matrix Double -> [Species] -> IO ()
plotTimeSeries ts soln ss
    = plot
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))
plotTimeSeries :: LA.Vector Double -> LA.Matrix Double -> [Species] -> IO ()
plotTimeSeries ts soln ss
    = plot
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))
plotTimeSeries ts soln ss
    = plot
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))