Commit bb0c512b authored by LANORE Vincent's avatar LANORE Vincent
Browse files

Global seed is now written to file (outdir/global.seed).

parent 93a3f87f
...@@ -384,6 +384,7 @@ let simulation_main ~outdir ?(ns = 0) ?(np = 2) ?(mem = 2) ~tree_dir ~profile_fn ...@@ -384,6 +384,7 @@ let simulation_main ~outdir ?(ns = 0) ?(np = 2) ?(mem = 2) ~tree_dir ~profile_fn
let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~preview ~fast_mode ~no_Ne ~ne_test ~no_HaPC ~tree_dir ~profile_fn ~use_concat ~add_indels ~only_simu ?(seed = Random.int Int.max_value) () = let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~preview ~fast_mode ~no_Ne ~ne_test ~no_HaPC ~tree_dir ~profile_fn ~use_concat ~add_indels ~only_simu ?(seed = Random.int Int.max_value) () =
printf "Global seed: %i\n" seed; printf "Global seed: %i\n" seed;
Out_channel.write_all (Filename.concat outdir "global.seed") ~data:(string_of_int seed);
(* 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
......
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