Commit 6a7e6b9a authored by Philippe Veber's avatar Philippe Veber

Run: added pcoc method

parent 9be15cf6
......@@ -27,6 +27,29 @@ let tdg09_method = Detection_method {
f = Pipeline.tdg09 ;
}
let pcoc_method = Detection_method {
id = "pcoc" ;
name = "PCOC" ;
cpt_column_label = "fdsf" ;
f = Pipeline.pcoc ;
}
let known_methods = [
"multinomial", multinomial_method ;
"tdg09", tdg09_method ;
"pcoc", pcoc_method ;
]
let parse_methods methods =
List.map methods ~f:(fun m ->
match List.Assoc.find known_methods ~equal:String.equal m with
| Some dm -> Ok dm
| None ->
Rresult.R.error_msgf "Unknown method %s, known methods are %s"
m (List.map known_methods ~f:fst |> String.concat ~sep:",")
)
|> Result.all
let candidate_site_report dataset (Detection_method meth) =
let all_queries = Dataset.queries dataset in
let sites =
......@@ -157,21 +180,6 @@ let repo run =
List.map (Dataset.queries d) ~f:foreach_query ;
]
let known_methods = [
"multinomial", multinomial_method ;
"tdg09", tdg09_method ;
]
let parse_methods methods =
List.map methods ~f:(fun m ->
match List.Assoc.find known_methods ~equal:String.equal m with
| Some dm -> Ok dm
| None ->
Rresult.R.error_msgf "Unknown method %s, known methods are %s"
m (List.map known_methods ~f:fst |> String.concat ~sep:",")
)
|> Result.all
let main
~tree_file ~alignment_dir ~convergent_species_file
~outdir ~np ~mem
......
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