open Bistro
open File_formats

type result = [
  | `Pcoc of [`pcoc] dworkflow
  | `Pcoc_gamma of [`pcoc] dworkflow
  | `Pcoc_C60 of [`pcoc] dworkflow
  | `Diffsel of [`diffsel] dworkflow
  | `Identical_LG of [`identical] dworkflow
  | `Identical_WAG of [`identical] dworkflow
  | `Topological_LG of [`topological] dworkflow
  | `Topological_WAG of [`topological] dworkflow
  | `Tdg09 of [`tdg09] dworkflow
  | `Multinomial of text_file pworkflow
  | `Msd of [`msd] dworkflow * float
]

val meth_string_of_result : result -> string

type dataset_res = {
  model_prefix : string ;
  tree_prefix : string ;
  dataset : Dataset.t ;
  res_by_tools: result list ;
  merged_results : text_file pworkflow ;
  plot_merged_results : svg pworkflow
}

val merge_results :
  ?fna_infos:text_file pworkflow ->
  res_by_tools : result list ->
  unit ->
  text_file pworkflow

val merge_result_tables :
  ?fna_infos:text_file pworkflow ->
  ?oracle:text_file pworkflow ->
  ?multinomial:text_file pworkflow ->
  ?tdg09:text_file pworkflow ->
  ?identical:text_file pworkflow ->
  ?topological:text_file pworkflow ->
  ?pcoc:text_file pworkflow ->
  ?pcoc_v2:text_file pworkflow ->
  ?pcoc_pcp:text_file pworkflow ->
  ?diffsel:text_file pworkflow ->
  ?diffseldsparse:text_file pworkflow ->
  unit ->
  text_file pworkflow

val plot_merge_results :
  ? t_choices : text_file pworkflow ->
  plot_all_sites: bool ->
  res_by_tools : result list ->
  tree:nhx pworkflow ->
  faa:aminoacid_fasta pworkflow ->
  tsv:text_file pworkflow ->
  unit ->
  svg pworkflow

val plot_convergent_sites :
  ?plot_all_sites:bool ->
  alignment:aminoacid_fasta pworkflow ->
  detection_results:text_file pworkflow ->
  tree:nhx pworkflow ->
  unit ->
  svg pworkflow

val recall_precision_curve :
  text_file pworkflow ->
  svg pworkflow

val oracle :
  n_h0:int ->
  n_ha:int ->
  text_file pworkflow

val recall_precision_auc_table :
  text_file pworkflow ->
  (string * float) array workflow