Commit 2923e9ad authored by Philippe Veber's avatar Philippe Veber
Browse files

Pipeline2: added a long running setting of pcoc

parent 8bfb1fb9
......@@ -201,10 +201,10 @@ let diffseldsparse ?pi ?shiftprob ?eps d =
|> Diffseldsparse.readdiffseldsparse
|> Diffseldsparse.results
let pcoc d =
let pcoc ?(gamma = true) ?(ncat = 60) d =
let faa = amino_acid_alignment d in
let tree = tree d in
Pcoc.pcoc ~catx_est:10 ~plot_complete:false ~gamma:false ~faa ~tree
Pcoc.pcoc ~catx_est:ncat ~plot_complete:false ~gamma ~faa ~tree
|> Pcoc.results
let alignment_plot d =
......@@ -238,17 +238,26 @@ let multinomial_benchmark d =
multinomial_simulation_sparse d ;
]
let result_table ?(use_diffsel = false) d =
let result_table ?(mode = `fast) d =
Convergence_detection.merge_result_tables
~multinomial:(multinomial_asymptotic_lrt d)
~tdg09:(tdg09 d)
~identical:(identical d)
~topological:(topological d)
~pcoc:(pcoc d)
?diffsel:(if use_diffsel then Some (diffsel d) else None)
~pcoc:(
match mode with
| `fast -> pcoc ~gamma:false ~ncat:10 d
| `full -> pcoc d
)
?diffsel:(
match mode with
| `fast -> None
| `full -> Some (diffsel d)
)
~oracle:(oracle d)
()
let benchmark ?use_diffsel d =
result_table ?use_diffsel d
let benchmark ?mode d =
result_table ?mode d
|> Convergence_detection.recall_precision_curve
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