-- Only plots selected species to a PDF file
plotTimeSeriesToFileFiltered :: LA.Vector Double -> LA.Matrix Double -> [Species] -> [Species]
                             -> String -> IO ()
plotTimeSeriesToFileFiltered ts soln ss ss' file
    = plotToFile
      (LA.toList ts)
      (filter (\(s,_)-> s `elem` (map specName ss'))
       (zip (map pretty ss) (map LA.toList (LA.toColumns soln))))
      file
plotTimeSeriesToFileFiltered :: LA.Vector Double -> LA.Matrix Double -> [Species] -> [Species]
                             -> String -> IO ()
plotTimeSeriesToFileFiltered ts soln ss ss' file
    = plotToFile
      (LA.toList ts)
      (filter (\(s,_)-> s `elem` (map specName ss'))
       (zip (map pretty ss) (map LA.toList (LA.toColumns soln))))
      file
plotTimeSeriesToFileFiltered ts soln ss ss' file
    = plotToFile
      (LA.toList ts)
      (filter (\(s,_)-> s `elem` (map specName ss'))
       (zip (map pretty ss) (map LA.toList (LA.toColumns soln))))
      file