Docker-in-Docker (DinD) capabilities of public runners deactivated. More info

Commit 8f06c08a authored by Philippe Veber's avatar Philippe Veber
Browse files

Orthomam.Candidate_site: added group_by_gen

parent 845bdfdf
......@@ -50,6 +50,11 @@ let profiles s =
let k1, k2 = aa_counts s in
profile_of_counts k1, profile_of_counts k2
let group_by_gene xs =
List.mapi xs ~f:(fun i s -> s.alignment_id, (i, s))
|> String.Table.of_alist_multi
|> String.Table.to_alist
let tree_add_cond_at_leaves (t : _ Tree.t) =
let open Tree in
let rec tree = function
......
......@@ -13,6 +13,8 @@ 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 * (int * t) list) list
val collapsed_tree :
f:((string * char * bool) list -> 'a) ->
tree ->
......
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