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

ns x10 if H0

parent 9bef9b03
......@@ -47,7 +47,10 @@ let parse_input_data indir =
let derive_from_model ~model ~input_tree ~tree_dataset ~tree_prefix ~profile ~preview ~ns =
let model_prefix = Convergence_hypothesis.string_of_model model in
let nb_sites = ns in
let nb_sites = match model with
| HO -> ns * 10
| _ -> ns
in
let nodes = Tree_dataset.nodes tree_dataset model in
let tree = Tree_dataset.tree tree_dataset `Simulation in
let descr = "."^model_prefix^"."^tree_prefix 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