Gemma: fixed result tables

lib/gemma.ml

@@ -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

lib/toolbox/gemma.ml

@@ -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 =