Commit be2ae394 authored by Carine Rey's avatar Carine Rey
Browse files

repo refactoring (continuation)

parent 0030e37e
......@@ -359,13 +359,17 @@ let repo_of_post_analyses_res ~prefix ~post_analyses_res =
(match post_analyses_res.t_choices with
| None -> []
| Some w ->
Repo.[
item [prefix ^ ".t_choices.max_mcc_per_meth.tsv"] w.t_choices_max ;
item [prefix ^ ".t_choices.recall09_per_meth.tsv"] w.t_choices_recall09 ;
item [prefix ^ ".t_choices.complete.tsv"] w.t_choices_complete ;
item [prefix ^ ".t_choices.pdf"] w.t_choices_plot ;
item [prefix ^ ".t_choices.condensed.pdf"] w.t_choices_condensed_plot ;
]
[
Repo.[
item [prefix ^ ".t_choices.max_mcc_per_meth.tsv"] w.t_choices_max ;
item [prefix ^ ".t_choices.recall09_per_meth.tsv"] w.t_choices_recall09 ;
item [prefix ^ ".t_choices.complete.tsv"] w.t_choices_complete ;
] |> Repo.shift "pdf_tsv" ;
Repo.[
item [prefix ^ ".t_choices.pdf"] w.t_choices_plot ;
item [prefix ^ ".t_choices.condensed.pdf"] w.t_choices_condensed_plot ;
]
] |> List.concat
);
(*(
match post_analyses_res.auto_t_plot_l with
......
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