let rp_curve ~scores ~labels =
  let matrices = performance_curve ~scores ~labels in
  Array.map matrices ~f:(fun (_,m) -> recall m, precision m)