Commit 6c4d8191 authored by Louis Duchemin's avatar Louis Duchemin
Browse files

whitespace commit

parent 437cf2e3
......@@ -3,8 +3,8 @@ open Bistro
open Codepitk
let simulation ?branch_scale ~rng ~n_h0 ~n_ha
~ne_s:(ne_s0, ne_s1) ~gBGC:(gBGC0, gBGC1)
let simulation ?branch_scale ~rng ~n_h0 ~n_ha
~ne_s:(ne_s0, ne_s1) ~gBGC:(gBGC0, gBGC1)
?rate_CpG ~tree ~fitness_profiles () =
let f = fun%workflow () ->
let open Phylogenetics in
......@@ -26,16 +26,16 @@ let simulation ?branch_scale ~rng ~n_h0 ~n_ha
|> to_fitness
|> Array.map ~f: Amino_acid.Vector.of_array_exn
) in
let tree = Option.value_map branch_scale ~default:tree
let tree = Option.value_map branch_scale ~default:tree
~f:(fun scale -> Mutsel_simulation.tree_rescale_branch_length tree ~scale)
in
match rate_CpG with
|Some rate_CpG ->
Mutsel_simulation.make_with_CpG_hypermutability
~rng ~n_h0 ~n_ha ~ne_s:(ne_s0, ne_s1) ~gBGC:(gBGC0, gBGC1)
match rate_CpG with
|Some rate_CpG ->
Mutsel_simulation.make_with_CpG_hypermutability
~rng ~n_h0 ~n_ha ~ne_s:(ne_s0, ne_s1) ~gBGC:(gBGC0, gBGC1)
~rate_CpG ~tree ~fitness_profiles ()
|None ->
Mutsel_simulation.make_site_independent
|None ->
Mutsel_simulation.make_site_independent
~rng ~n_h0 ~n_ha ~gBGC:(gBGC0, gBGC1)
~ne_s:(ne_s0, ne_s1) ~tree ~fitness_profiles ()
in
......@@ -44,7 +44,7 @@ let simulation ?branch_scale ~rng ~n_h0 ~n_ha
let alignment_of_simulation sim =
let f = fun%workflow dest ->
let sim : Mutsel_simulation.t = [%eval sim] in
let tree, sequences = match sim with
let tree, sequences = match sim with
| Site_independent sim -> sim.tree, sim.sequences
| With_CpG_hypermutability sim -> sim.tree, sim.sequences
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