Pipeline2: added diffsel

b808b7d1 · Philippe Veber · f4afdeb5 · b808b7d1
Commit b808b7d1 authored Jan 17, 2019 by Philippe Veber
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

lib/pipeline2.ml lib/pipeline2.ml +9 -0

No files found.
--- a/lib/pipeline2.ml
+++ b/lib/pipeline2.ml
@@ -67,6 +67,15 @@ let nucleotide_alignment (Simulation _ as d) =
 let phylip_nucleotide_alignment d =
  Bppsuite.fna2phy ~fna:(nucleotide_alignment d)

+let diffsel d =
+  Diffsel.diffsel
+    ~phy_n:(phylip_nucleotide_alignment d)
+    ~tree:(tree d)
+    ~w_every:1
+    ~n_cycles:50
+    ()
+  |> Diffsel.selector
+
 let diffseldsparse d =
  Diffseldsparse.diffseldsparse
    ~alignment:(phylip_nucleotide_alignment d)