Commit bedde902 authored by Philippe Veber's avatar Philippe Veber
Browse files

ocamlformat formatting

parent 5995647f
open Phylogenetics
type leaf_data = {
species : string ;
state : char ;
condition : [`Ancestral | `Convergent] ;
species : string;
state : char;
condition : [ `Ancestral | `Convergent ];
}
type branch_length = float
......@@ -11,30 +11,30 @@ type branch_length = float
type tree = (unit, leaf_data, branch_length) Tree.t
type t = {
alignment_id : string option ;
pos : int option ;
contents : tree ;
score : float option ;
alignment_id : string option;
pos : int option;
contents : tree;
score : float option;
}
val make :
?alignment_id:string ->
?score:float ->
condition:(string -> [`Ancestral | `Convergent]) ->
condition:(string -> [ `Ancestral | `Convergent ]) ->
Newick_ast.t ->
Biotk.Fasta.item list ->
int ->
t
val aa_counts : t -> int array * int array
val mean_profile : t -> float array
val profiles : t -> float array * float array
val group_by_gene : t list -> (string option * (int * t) list) list
val collapsed_tree :
f:(leaf_data list -> 'a) ->
tree ->
(unit, 'a, float) Tree.t
f:(leaf_data list -> 'a) -> tree -> (unit, 'a, float) Tree.t
val draw : t -> Biotk_croquis.Croquis.Picture.t
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