open Core
open Bistro.EDSL
open Bistro.Std
open Bistro_bioinfo.Std
open File_formats
open Defs

type result = [
  | `Pcoc of [`pcoc] directory workflow
  | `Pcoc_gamma of [`pcoc] directory workflow
  | `Pcoc_C60 of [`pcoc] directory workflow
  | `Diffsel of [`diffsel] directory workflow
  | `Identical_LG of [`identical] directory workflow
  | `Identical_WAG of [`identical] directory workflow
  | `Topological_LG of [`topological] directory workflow
  | `Topological_WAG of [`topological] directory workflow
  | `Tdg09 of [`tdg09] directory workflow
  | `Multinomial of [`multinomial] directory workflow
  | `Msd of [`msd] directory workflow * 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 workflow ;
  plot_merged_results : svg workflow
}

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

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