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
Open sidebar
VEBER Philippe
codepi
Commits
2f0ee844
Commit
2f0ee844
authored
Nov 03, 2020
by
Philippe Veber
Browse files
Gemma: fixed result tables
parent
b393eec5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
2 deletions
+2
-2
lib/gemma.ml
lib/gemma.ml
+1
-1
lib/toolbox/gemma.ml
lib/toolbox/gemma.ml
+1
-1
No files found.
lib/gemma.ml
View file @
2f0ee844
...
...
@@ -80,7 +80,7 @@ let calculate_relatedness_matrix ~mode ~genotype ~phenotype =
cmd
"cp"
[
tmp
//
relatedness_filename
mode
;
dest
];
]
let
%
pworkflow
[
@
version
4
]
result_table_of_output
alignment
gemma_output
=
let
%
pworkflow
[
@
version
5
]
result_table_of_output
alignment
gemma_output
=
let
module
R
=
Codepitk
.
Gemma
.
Result_file
in
match
R
.
of_file
[
%
path
gemma_output
]
with
|
Error
msg
->
failwith
msg
...
...
lib/toolbox/gemma.ml
View file @
2f0ee844
...
...
@@ -158,7 +158,7 @@ module Result_file = struct
|
h
::
t
->
(
h
.
index
,
site_aggregator
(
List1
.
cons
h
t
)))
|>
Int
.
Table
.
of_alist_exn
in
let
scores
=
Array
.
init
nsites
~
f
:
(
Int
.
Table
.
find
scores_by_index
)
in
let
scores
=
Array
.
init
nsites
~
f
:
(
fun
i
->
Option
.
map
(
Int
.
Table
.
find
scores_by_index
i
)
~
f
:
((
-.
)
1
.
)
)
in
{
Result_table
.
oracle
=
None
;
scores_per_meth
=
[
(
"Gemma"
,
scores
)
]
}
let
min_pvalue_aggregator
xs
=
...
...
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