-- Plots the data to a PDF file
plotTimeSeriesToFile :: LA.Vector Double -> LA.Matrix Double -> [Species] -> String -> IO ()
plotTimeSeriesToFile ts soln ss file
    = plotToFile
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))
      file
plotTimeSeriesToFile :: LA.Vector Double -> LA.Matrix Double -> [Species] -> String -> IO ()
plotTimeSeriesToFile ts soln ss file
    = plotToFile
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))
      file
plotTimeSeriesToFile ts soln ss file
    = plotToFile
      (LA.toList ts)
      (zip (map pretty ss) (map LA.toList (LA.toColumns soln)))
      file