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
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Christian Merten
haskell-gargantext
Commits
01f1c272
Commit
01f1c272
authored
Feb 11, 2021
by
david Chavalarias
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
buf fix in sea level threhold
parent
55d8b0ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
TemporalMatching.hs
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
+1
-1
No files found.
src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
View file @
01f1c272
...
@@ -470,7 +470,7 @@ seaLevelMatching :: Proximity -> Double -> Int -> Map Int Double -> Double -> Do
...
@@ -470,7 +470,7 @@ seaLevelMatching :: Proximity -> Double -> Int -> Map Int Double -> Double -> Do
->
Int
->
[
PhyloPeriodId
]
->
Map
Date
Double
->
Map
Date
Cooc
->
[([
PhyloGroup
],
Bool
)]
->
[([
PhyloGroup
],
Bool
)]
->
Int
->
[
PhyloPeriodId
]
->
Map
Date
Double
->
Map
Date
Cooc
->
[([
PhyloGroup
],
Bool
)]
->
[([
PhyloGroup
],
Bool
)]
seaLevelMatching
proximity
lambda
minBranch
frequency
thr
step
depth
elevation
frame
periods
docs
coocs
branches
=
seaLevelMatching
proximity
lambda
minBranch
frequency
thr
step
depth
elevation
frame
periods
docs
coocs
branches
=
-- if there is no branch to break or if seaLvl level > 1 then end
-- if there is no branch to break or if seaLvl level > 1 then end
if
(
thr
>
=
1
)
||
((
not
.
or
)
$
map
snd
branches
)
if
(
thr
>
1
)
||
((
not
.
or
)
$
map
snd
branches
)
then
branches
then
branches
else
else
-- break all the possible branches at the current seaLvl level
-- break all the possible branches at the current seaLvl level
...
...
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