toolbox/Result_table: use lists to represent the set of columns

lib/convergence_detection.ml

@@ -195,7 +195,7 @@ let%workflow recall_precision_auc_table table =
   let module RT = Reviewphiltrans_toolbox.Result_table in
   let { RT.oracle ; scores_per_meth } = RT.of_file [%path table] in
   let labels = Option.value_exn oracle in
-  Array.map scores_per_meth ~f:(fun (meth, scores) ->
+  List.map scores_per_meth ~f:(fun (meth, scores) ->
       let _, auc = Biocaml_unix.Bin_pred.recall_precision_curve ~labels ~scores in
       meth, auc
     )

lib/convergence_detection.mli

@@ -76,4 +76,4 @@ val oracle :
 
 val recall_precision_auc_table :
   text file ->
-  (string * float) array workflow
+  (string * float) list workflow

lib/toolbox/result_table.ml

@@ -2,7 +2,7 @@ open Core_kernel
 
 type t = {
   oracle : bool array option ;
-  scores_per_meth : (string * float array) array ;
+  scores_per_meth : (string * float array) list ;
 }
 
 let of_file fn =
@@ -35,5 +35,6 @@ let of_file fn =
     Array.filter_map methods ~f:(fun m ->
         Option.map (scores m) ~f:(fun c -> m, c)
       )
+    |> Array.to_list
   in
   { oracle ; scores_per_meth }

lib/toolbox/result_table.mli

@@ -2,7 +2,7 @@
 
 type t = {
   oracle : bool array option ;
-  scores_per_meth : (string * float array) array ;
+  scores_per_meth : (string * float array) list ;
 }
 
 val of_file : string -> t