Commit 4d3d17c9 authored by Philippe Veber's avatar Philippe Veber
Browse files

tk/Result_table: fixed header when creating tables

parent 1940c313
......@@ -43,7 +43,7 @@ let orthomam_echolocation = {
Orthomam.tree_of_db
~branch_length_unit:`Amino_acid
~convergent_species:Orthomam.species_with_echolocation
(Codepitk.Orthomam_db.make "/home/louis/Data/omm")
(Codepitk.Orthomam_db.make "_runs/omm")
) ;
rooted = false ;
branch_scale = 1. ;
......@@ -88,8 +88,8 @@ let benchmark_rds ?(seed = 42) { tree = t ; rooted ; ne_s ; branch_scale ; _ } =
let () =
let open Bistro_utils.Repo in
let datasets = [ besnard2009 ; rubisco ; oneline_rodent ; orthomam_echolocation ] in
(* let datasets = [ besnard2009 ] in *)
(* let datasets = [ besnard2009 ; rubisco ; oneline_rodent ; orthomam_echolocation ] in *)
let datasets = [ besnard2009 ] in
let repo =
List.map datasets ~f:(fun d ->
item [d.label ^ ".rds"] (benchmark_rds d)
......@@ -115,4 +115,4 @@ let () =
~phenotype:(Gemma.phenotype_of_tree (Pipeline.tree ~branch_length_unit:`Amino_acid q)) *)
Pipeline.lmm_with_gemma_matrix q ~relatedness_mode:`Standardized
|> Top.path
|> print_endline *)
\ No newline at end of file
|> print_endline *)
......@@ -63,7 +63,7 @@ let line_of_cells xs = List.map xs ~f:string_of_cell |> String.concat ~sep:"\t"
let maybe_add o xs = match o with None -> xs | Some h -> h :: xs
let headers results =
"Site"
"Sites"
:: maybe_add
(Option.map results.oracle ~f:(Fn.const "Oracle"))
(List.map results.scores_per_meth ~f:fst)
......
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