Commit 2f0ee844 authored by Philippe Veber's avatar Philippe Veber
Browse files

Gemma: fixed result tables

parent b393eec5
......@@ -80,7 +80,7 @@ let calculate_relatedness_matrix ~mode ~genotype ~phenotype =
cmd "cp" [ tmp // relatedness_filename mode; dest ];
]
let%pworkflow[@version 4] result_table_of_output alignment gemma_output =
let%pworkflow[@version 5] result_table_of_output alignment gemma_output =
let module R = Codepitk.Gemma.Result_file in
match R.of_file [%path gemma_output] with
| Error msg -> failwith msg
......
......@@ -158,7 +158,7 @@ module Result_file = struct
| h :: t -> (h.index, site_aggregator (List1.cons h t)))
|> Int.Table.of_alist_exn
in
let scores = Array.init nsites ~f:(Int.Table.find scores_by_index) in
let scores = Array.init nsites ~f:(fun i -> Option.map (Int.Table.find scores_by_index i) ~f:(( -. ) 1.)) in
{ Result_table.oracle = None; scores_per_meth = [ ("Gemma", scores) ] }
let min_pvalue_aggregator xs =
......
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