Add option for bootstrap resampling (not implemented yet)

This commit is contained in:
Filip Graliński 2019-11-02 11:53:52 +01:00
parent d67061c230
commit 402ed73111
2 changed files with 10 additions and 2 deletions

View File

@ -168,7 +168,8 @@ data GEvalSpecification = GEvalSpecification
gesGonitoHost :: Maybe String,
gesToken :: Maybe String,
gesGonitoGitAnnexRemote :: Maybe String,
gesReferences :: Maybe String }
gesReferences :: Maybe String,
gesBootstrapSampling :: Maybe Int }
gesMainMetric :: GEvalSpecification -> Metric
@ -216,7 +217,8 @@ defaultGEvalSpecification = GEvalSpecification {
gesGonitoHost = Nothing,
gesToken = Nothing,
gesGonitoGitAnnexRemote = Nothing,
gesReferences = Nothing}
gesReferences = Nothing,
gesBootstrapSampling = Nothing }
isEmptyFile :: FilePath -> IO (Bool)
isEmptyFile path = do

View File

@ -196,6 +196,12 @@ specParser = GEvalSpecification
<> help "External text file referenced"
)
)
<*> ( optional $ option auto
(long "bootstrap-resampling"
<> short 'B'
<> metavar "NUMBER-OF-SAMPLES"
<> help "Tests on NUMBER-OF-SAMPLES bootstrap samples rather than just on the whole test set" ))
defaultMinFrequency :: Integer
defaultMinFrequency = 1