Commit 02cfe919 authored by Carine Rey's avatar Carine Rey
Browse files

add H0_NeVerySmall hyp

parent 57e06a9a
......@@ -7,6 +7,7 @@ type t =
| HaPC
| HaPCOC
| H0_NeSmall
| H0_NeVerySmall
| HaPCOC_NeSmall
| HaPC_NeSmall
| H0_NeBig
......@@ -18,6 +19,7 @@ let string_of_model m = match m with
| HaPC -> "HaPC"
| HaPCOC -> "HaPCOC"
| H0_NeSmall -> "H0_NeSmall"
| H0_NeVerySmall -> "H0_NeVerySmall"
| HaPCOC_NeSmall -> "HaPCOC_NeSmall"
| HaPC_NeSmall -> "HaPC_NeSmall"
| H0_NeBig -> "H0_NeBig"
......@@ -83,6 +85,7 @@ let bpp_config_F nodes hyp = [
| HaPC -> bpp_config_HaPC_F
| HaPCOC -> bpp_config_HaPCOC_F
| H0_NeSmall -> bpp_config_H0_F_Ne
| H0_NeVerySmall -> bpp_config_H0_F_Ne
| HaPC_NeSmall -> bpp_config_HaPC_F_Ne
| HaPCOC_NeSmall -> bpp_config_HaPCOC_F_Ne
| H0_NeBig -> bpp_config_H0_F_Ne
......
......@@ -57,6 +57,7 @@ let derive_from_model ~model ~input_tree ~tree_dataset ~tree_prefix ~profile_f ~
(* with several profiles or couples of profiles *)
let config_p = Convergence_hypothesis.bpp_config_F nodes model in
let ne_c = match model with
| H0_NeVerySmall -> 0.001
| H0_NeSmall -> 0.1
| HaPCOC_NeSmall -> 0.1
| HaPC_NeSmall -> 0.1
......@@ -98,6 +99,7 @@ let derive_from_tree ~tree_dir ~tree ~profile_f ~preview ~use_concat ~ns ~no_Ne
else
[HaPC ;
H0_NeSmall ;
H0_NeVerySmall ;
HaPCOC_NeSmall ;
HaPC_NeSmall ;
H0_NeBig ;
......
......@@ -25,6 +25,7 @@ let nodes dataset (model : Convergence_hypothesis.t) =
|HaPCOC_NeBig -> [ "tree.Ha.node_ids" ]
|HaPC_NeBig -> [ "tree.Ha.node_ids" ]
|H0_NeSmall -> [ "tree.H0_a.node_ids" ]
|H0_NeVerySmall -> [ "tree.H0_a.node_ids" ]
|H0_NeBig -> [ "tree.H0_a.node_ids" ]
)
......
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