Commit 03742957 authored by Philippe Veber's avatar Philippe Veber
Browse files

app/Lmm_benchmark: upgrade wrt lib

parent 6815030e
......@@ -51,13 +51,13 @@ let orthomam_echolocation = {
}
type detection_method = {
result : Pipeline.query -> cpt file ;
f : Pipeline.query -> cpt file ;
label : string ;
requires_rooted_tree : bool ;
}
let meth ?(requires_rooted_tree = false) result label =
{ result ; label ; requires_rooted_tree }
let meth ?(requires_rooted_tree = false) f label =
{ f ; label ; requires_rooted_tree }
let methods = Pipeline.[
meth tdg09 "tdg09" ;
......@@ -75,15 +75,15 @@ let benchmark_rds ?(seed = 42) { tree = t ; rooted ; ne_s ; branch_scale ; _ } =
~profiles:"example/aa_fitness/263SelectedProfiles.tsv"
~n_h0:900 ~n_ha:100 ()
in
let simulation = Pipeline.simulation q in
let results =
let methods =
List.filter_map methods ~f:(fun m ->
if not m.requires_rooted_tree || rooted then
Some (m.result q)
Some m.f
else None
)
in
Pipeline.benchmark_statistics simulation ~results
Pipeline.benchmark q methods
|> Pipeline.rds_of_benchmark
let () =
let open Bistro_utils.Repo in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment