Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
145
Issues
145
List
Board
Labels
Milestones
Merge Requests
6
Merge Requests
6
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-gargantext
Commits
6d28e4a9
Commit
6d28e4a9
authored
4 years ago
by
qlobbe
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
change the logs output
parent
7b275ee2
Pipeline
#867
failed with stage
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
TemporalMatching.hs
src/Gargantext/Viz/Phylo/TemporalMatching.hs
+1
-1
No files found.
src/Gargantext/Viz/Phylo/TemporalMatching.hs
View file @
6d28e4a9
...
@@ -381,7 +381,7 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra
...
@@ -381,7 +381,7 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra
else
else
-- | break all the possible branches at the current seaLvl level
-- | break all the possible branches at the current seaLvl level
let
quality
=
toPhyloQuality
beta
frequency
(
map
fst
branches
)
let
quality
=
toPhyloQuality
beta
frequency
(
map
fst
branches
)
branches'
=
trace
(
"↑ level = "
<>
printf
"%.
2
f"
thr
<>
" F(β) = "
<>
printf
"%.5f"
quality
<>
" branches = "
<>
show
(
length
branches
)
<>
" ↴"
)
branches'
=
trace
(
"↑ level = "
<>
printf
"%.
3
f"
thr
<>
" F(β) = "
<>
printf
"%.5f"
quality
<>
" branches = "
<>
show
(
length
branches
)
<>
" ↴"
)
$
breakBranches
proximity
beta
frequency
minBranch
thr
depth
elevation
frame
docs
coocs
periods
$
breakBranches
proximity
beta
frequency
minBranch
thr
depth
elevation
frame
docs
coocs
periods
[]
(
head'
"seaLevelMatching"
branches
)
(
tail'
"seaLevelMatching"
branches
)
[]
(
head'
"seaLevelMatching"
branches
)
(
tail'
"seaLevelMatching"
branches
)
frequency'
=
reduceFrequency
frequency
(
map
fst
branches'
)
frequency'
=
reduceFrequency
frequency
(
map
fst
branches'
)
...
...
This diff is collapsed.
Click to expand it.
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