Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clustering-louvain
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
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
gargantext
clustering-louvain
Commits
306a0348
Commit
306a0348
authored
Mar 19, 2020
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FLouvain] glue/klue type
parent
ae6a39a7
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
2 deletions
+5
-2
clustering-louvain.cabal
clustering-louvain.cabal
+1
-2
FLouvain.hs
src/Data/Graph/Clustering/FLouvain.hs
+4
-0
No files found.
clustering-louvain.cabal
View file @
306a0348
...
@@ -4,7 +4,7 @@ cabal-version: 1.12
...
@@ -4,7 +4,7 @@ cabal-version: 1.12
--
--
-- see: https://github.com/sol/hpack
-- see: https://github.com/sol/hpack
--
--
-- hash:
94042062aa43112f36f9b8d21fcddf66dd7d8201d0e3d64a23cc48a34878a1de
-- hash:
0eb2bbc80a3d9343540c4d5c0c2ff6adee085a9a75364b8f5344890891c5b781
name: clustering-louvain
name: clustering-louvain
version: 0.1.0.0
version: 0.1.0.0
...
@@ -42,6 +42,5 @@ library
...
@@ -42,6 +42,5 @@ library
Data.Graph.Clustering.Example
Data.Graph.Clustering.Example
Data.Graph.Clustering.FLouvain
Data.Graph.Clustering.FLouvain
Data.Graph.Clustering.HLouvain
Data.Graph.Clustering.HLouvain
Data.Graph.Clustering.HyperGraph
Paths_clustering_louvain
Paths_clustering_louvain
default-language: Haskell2010
default-language: Haskell2010
src/Data/Graph/Clustering/FLouvain.hs
View file @
306a0348
...
@@ -35,6 +35,10 @@ import Data.Graph.Inductive
...
@@ -35,6 +35,10 @@ import Data.Graph.Inductive
-- sequentially for all nodes until no further improvement can be achieved and
-- sequentially for all nodes until no further improvement can be achieved and
-- the first phase is then complete.
-- the first phase is then complete.
-- "glue" : function to gather/merge communities
-- "klue" : function to split communities
data
ClusteringMethod
=
Glue
|
Klue
-- | Find LNode of a node (i.e. a node with label)
-- | Find LNode of a node (i.e. a node with label)
lnode
::
(
Graph
gr
)
=>
gr
a
b
->
Node
->
Maybe
(
LNode
a
)
lnode
::
(
Graph
gr
)
=>
gr
a
b
->
Node
->
Maybe
(
LNode
a
)
...
...
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