Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Docker-in-Docker (DinD) capabilities of public runners deactivated.
More info
Open sidebar
VEBER Philippe
codepi
Commits
03742957
Commit
03742957
authored
Nov 22, 2020
by
Philippe Veber
Browse files
app/Lmm_benchmark: upgrade wrt lib
parent
6815030e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
app/lmm_benchmark.ml
app/lmm_benchmark.ml
+7
-7
No files found.
app/lmm_benchmark.ml
View file @
03742957
...
...
@@ -51,13 +51,13 @@ let orthomam_echolocation = {
}
type
detection_method
=
{
result
:
Pipeline
.
query
->
cpt
file
;
f
:
Pipeline
.
query
->
cpt
file
;
label
:
string
;
requires_rooted_tree
:
bool
;
}
let
meth
?
(
requires_rooted_tree
=
false
)
result
label
=
{
result
;
label
;
requires_rooted_tree
}
let
meth
?
(
requires_rooted_tree
=
false
)
f
label
=
{
f
;
label
;
requires_rooted_tree
}
let
methods
=
Pipeline
.[
meth
tdg09
"tdg09"
;
...
...
@@ -75,15 +75,15 @@ let benchmark_rds ?(seed = 42) { tree = t ; rooted ; ne_s ; branch_scale ; _ } =
~
profiles
:
"example/aa_fitness/263SelectedProfiles.tsv"
~
n_h0
:
900
~
n_ha
:
100
()
in
let
simulation
=
Pipeline
.
simulation
q
in
let
results
=
let
methods
=
List
.
filter_map
methods
~
f
:
(
fun
m
->
if
not
m
.
requires_rooted_tree
||
rooted
then
Some
(
m
.
result
q
)
Some
m
.
f
else
None
)
in
Pipeline
.
benchmark_statistics
simulation
~
results
Pipeline
.
benchmark
q
methods
|>
Pipeline
.
rds_of_benchmark
let
()
=
let
open
Bistro_utils
.
Repo
in
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment