filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor fix in plotting the graph

Browse Source
This commit is contained in:
Filip Gralinski 2019-03-19 15:11:04 +01:00
parent 9beb68867a
commit feacd5844c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GEval/OptionsParser.hs
View File

@ -349,7 +349,7 @@ groupByMetric metrics results = filter (\(_, ss) -> not (null ss))
plotGraph :: FilePath -> (Metric, [(SourceSpec, GraphSeries)]) -> IO () plotGraph :: FilePath -> (Metric, [(SourceSpec, GraphSeries)]) -> IO ()
plotGraph graphFile (metric@(ProbabilisticSoftFMeasure _), seriesSpecs) = do plotGraph graphFile (metric@(ProbabilisticSoftFMeasure _), seriesSpecs) = do
toFile def graphFile $ do toFile def graphFile $ do
layoutlr_title .= "GEval Graph / Loess / " ++ (show metric) layoutlr_title .= "GEval Graph / Calibration / Loess / " ++ (show metric)
let perfectSeries = (FilePathSpec "Perfect", let perfectSeries = (FilePathSpec "Perfect",
GraphSeries [(0.0, 0.0), (1.0, 1.0)]) GraphSeries [(0.0, 0.0), (1.0, 1.0)])
mapM_ plotOneSeries $ (perfectSeries : seriesSpecs) mapM_ plotOneSeries $ (perfectSeries : seriesSpecs)