Commit cd2dd003 authored by Carine Rey's avatar Carine Rey
Browse files

refactoring

parent fd5ff577
......@@ -43,15 +43,14 @@ let derive_from_tree ~tree_dir ~tree ~profile_f ~preview =
H0NeBig ;
HaNeBig ;
] in
let hypos = List.map models ~f:(fun model ->
let dataset_per_hypo = List.map models ~f:(fun model ->
derive_from_model ~model ~input_tree ~tree_dataset ~tree_prefix ~profile_f ~preview
) in
let ready_dataset_H0 = (derive_from_model ~model:H0 ~input_tree ~tree_dataset ~tree_prefix ~profile_f ~preview).dataset in
let ready_dataset_Ha = (derive_from_model ~model:Ha ~input_tree ~tree_dataset ~tree_prefix ~profile_f ~preview).dataset in
let hypos_concat =
[{ Dataset.model_prefix="H0+Ha"; tree_prefix; dataset = Ready_dataset.paste ready_dataset_H0 ready_dataset_Ha};]
in
List.concat [ hypos ; hypos_concat ]
let concat_H0Ha = {Dataset.model_prefix="H0+Ha"; tree_prefix; dataset = Ready_dataset.paste ready_dataset_H0 ready_dataset_Ha} in
let dataset_concat_hypos = [concat_H0Ha;] in
List.concat [ dataset_per_hypo ; dataset_concat_hypos ]
let derive_sim ~tree_dir ~trees ~profile_fn ~preview =
let profile_f = input profile_fn 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