Commit 5c6f471b authored by Carine Rey's avatar Carine Rey
Browse files

rm pair distance filter

parent b8f7e2e2
...@@ -422,7 +422,7 @@ let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~previe ...@@ -422,7 +422,7 @@ let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~previe
(* simulated trees *) (* simulated trees *)
Random.init seed ; Random.init seed ;
let nb_sites = if ns = 0 then (if preview then 20 else 50) else ns in let nb_sites = if ns = 0 then (if preview then 20 else 50) else ns in
let profile = Profile.profile_l_of_splitted_profile ~nb_cat:Unif_3 ~nb_sites profile_fn ~seed:(Random.int Int.max_value) in let profile = Profile.profile_l_of_splitted_profile ~nb_cat:All ~nb_sites profile_fn ~seed:(Random.int Int.max_value) in
let sim_repo_l = derive_profile ~indir ~ns ~preview ~fast_mode ~no_Ne ~ne_test ~no_HaPC ~tree_dir ~profile ~use_concat ~add_indels ~only_simu ~seed () in let sim_repo_l = derive_profile ~indir ~ns ~preview ~fast_mode ~no_Ne ~ne_test ~no_HaPC ~tree_dir ~profile ~use_concat ~add_indels ~only_simu ~seed () in
(* real trees *) (* real trees *)
let indir_dataset_l = if indir = "" then [] else parse_input_data ~seed indir in let indir_dataset_l = if indir = "" then [] else parse_input_data ~seed indir 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