app/Lmm_benchmark: upgrade wrt lib

app/lmm_benchmark.ml

@@ -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