Commit 110f2ce9 authored by Philippe Veber's avatar Philippe Veber
Browse files

app: added diffseldsparse benchmark

parent 6f463f68
open Core
open Reviewphiltrans
let main ~n_h0 ~n_ha ~seed:i () =
let open Pipeline2 in
let sim =
Bppseqgen_mixed {
tree = `NHX "example/trees_analyses/cyp_coding.Chrysithr_root.nhx" ;
profiles = "example/aa_fitness/263SelectedProfiles.tsv" ;
n_h0 ;
n_ha ;
ne_s = 4. ;
seed = i ;
}
in
let w = benchmark sim in
(* print_endline (Debug.path (multinomial sim)) ; *)
print_endline (Debug.path w)
let command =
let open Command.Let_syntax in
Command.basic
~summary:"Run diffseldsparse bench"
[%map_open
let n_ha =
flag "--n-ha" (required int) ~doc:"INT Number of Ha sites"
and n_h0 =
flag "--n-h0" (required int) ~doc:"INT Number of H0 sites"
and seed =
flag "--seed" (required int) ~doc:"INT Global seed"
in
main ~n_ha ~n_h0 ~seed
]
let () = Command.run command
......@@ -3,5 +3,14 @@
(executable
((name reviewphiltrans_app)
(public_name reviewphiltrans)
(modules (reviewphiltrans_app))
(libraries (str reviewphiltrans))
))
(executable
((name diffseldsparse_benchmark)
(public_name diffseldsparse_benchmark)
(modules (diffseldsparse_benchmark))
(libraries (reviewphiltrans))
(preprocess (pps (ppx_jane)))
))
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