Commit 3476ceb3 authored by Philippe Veber's avatar Philippe Veber
Browse files

Simulator.alignment: added seed parameter

parent a48b49d8
open Core_kernel
let%pworkflow simulator ?branch_factor ~n_h0 ~n_ha ~ne_s ~tree ~fitness_profiles () =
let%pworkflow simulator ?branch_factor ?seed ~n_h0 ~n_ha ~ne_s ~tree ~fitness_profiles () =
let () = Option.iter ~f:Random.init [%param seed] in
let n_h0 = [%param n_h0] in
let n_ha = [%param n_ha] in
let ne_s = [%param ne_s] 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