Commit 000fdac4 authored by Philippe Veber's avatar Philippe Veber
Browse files

Dataset: started new API

parent 4d9215f4
...@@ -49,3 +49,24 @@ let add_indels_to_dataset d ~seed = ...@@ -49,3 +49,24 @@ let add_indels_to_dataset d ~seed =
let dataset = Ready_dataset.add_indels_to_ready_dataset ~p ~seed:indel_seed d.dataset in let dataset = Ready_dataset.add_indels_to_ready_dataset ~p ~seed:indel_seed d.dataset in
let calc_dnds = d.calc_dnds in let calc_dnds = d.calc_dnds in
{model_prefix; tree_prefix; is_real; calc_dnds; dataset; seed = new_seed} {model_prefix; tree_prefix; is_real; calc_dnds; dataset; seed = new_seed}
open Bistro
open File_formats
module New_API = struct
type t = {
tree : nhx file ;
nucleotide_alignments : nucleotide_fasta file list ;
convergent_species : string list workflow ;
}
module Query = struct
type dataset = t
type t = dataset * nucleotide_fasta file
let nucleotide_alignment = snd
let tree ~branch_length_unit:_ (d, _) = d.tree
end
end
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