Commit 6fbc0cea authored by Philippe Veber's avatar Philippe Veber
Browse files

bppsuite: debug suppression of Bistro.EDSL.insert

parent c421c0dd
......@@ -109,6 +109,7 @@ let bppseqgen_multi_profiles ?(descr="") ~profile_f ~profile_c ~nb_sites ~tree ~
];*)
cmd "cat" ~stdout:config_f [
file_dump (conf_file_bppseqgen_multi_profiles ~tree ~profile_f ~config ~ne_c ~ne_a ~nb_sites_per_profile) ;
file_dump (seq ~sep:"\n" [ string "\n" ]) ;
dep nodes ;
];
cmd "bash" [(file_dump (bppseqgen_multi_profiles_script ~config:config_f ~out ~profile_c:profile_c_ok ~seed))];
......
......@@ -16,17 +16,23 @@ let workflow_of_template t =
cmd "cp" [ file_dump t ; dest ]
]
let config_file () =
let open Bistro.EDSL in
let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
let tree_dir = "/home/pveber/w/reviewphiltrans/example/trees_test/" in
let tree = "tree_small_bl.nhx" in
let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
let input_tree = Bistro.EDSL.input (Filename.concat tree_dir tree) in
let tree_prefix = Filename.chop_extension tree in
let tree_dataset = Tree_dataset.prepare ~descr:("simulated_data." ^ tree_prefix) input_tree in
let nodes = Tree_dataset.nodes tree_dataset model in
Convergence_hypothesis.bpp_config_F nodes model
|> Bistro.EDSL.seq ~sep:"\n"
|> workflow_of_template
workflow [
cmd "cat" ~stdout:dest [
file_dump (Bistro.EDSL.seq ~sep:"\n" (Convergence_hypothesis.bpp_config_F model @ [ string "\n" ])) ;
dep nodes ;
];
]
let main () =
......
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