Commit fbcadd3c authored by Philippe Veber's avatar Philippe Veber
Browse files

declare oracle parameters

parent b78e4b16
......@@ -185,6 +185,8 @@ let recall_precision_curve table =
]
let%pworkflow oracle ~n_h0 ~n_ha =
let n_h0 = [%param n_h0] in
let n_ha = [%param n_ha] in
"Sites\tOracle"
:: (List.init n_h0 ~f:(fun i -> sprintf "%d\t0" (i + 1)))
@ (List.init n_ha ~f:(fun i -> sprintf "%d\t1" (n_h0 + i + 1)))
......
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