Commit 95106304 authored by Louis Duchemin's avatar Louis Duchemin
Browse files

Tighter typing for Gemma.Result_file.to_result_table

parent 85950981
......@@ -109,7 +109,9 @@ module Result_file = struct
List.sort results ~compare:(fun it1 it2 ->
Int.compare it1.index it2.index)
|> List.group ~break:(fun l1 l2 -> l1.index = l2.index)
|> List.map ~f:site_aggregator
|> List.map ~f:(function
| [] -> assert false
| h :: t -> site_aggregator (List1.cons h t) |> Option.some)
|> Array.of_list
in
{ Result_table.oracle = None; scores_per_meth = [ ("Gemma", scores) ] }
......
open Phylogenetics
val write_phenotypes : newick:string -> output:string -> unit
val write_genotypes : alignment:string -> output:string -> unit
......@@ -16,5 +18,5 @@ module Result_file : sig
val of_file : string -> t
val to_result_table :
t -> site_aggregator:(item list -> float option) -> Result_table.t
t -> site_aggregator:(item List1.t -> float) -> Result_table.t
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