Skip to content

haskell-gargantext
haskell-gargantext
Commit 5ef12110 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Graph Removing Hapax

parent 0dd81eb6
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
gargantext.cabal
View file @ 5ef12110
...@@ -5,7 +5,7 @@ cabal-version: 1.12 ...@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack -- see: https://github.com/sol/hpack
name: gargantext name: gargantext
version: 0.0.6.8.5.7 version: 0.0.6.8.5.7
synopsis: Search, map, share synopsis: Search, map, share
description: Please see README.md description: Please see README.md
category: Data category: Data
......
src/Gargantext/Core/Viz/Graph/API.hs
View file @ 5ef12110
...@@ -212,8 +212,8 @@ computeGraph corpusId partitionMethod bridgeMethod similarity strength (nt1,nt2) ...@@ -212,8 +212,8 @@ computeGraph corpusId partitionMethod bridgeMethod similarity strength (nt1,nt2)
pure (m1,m2) pure (m1,m2)
-- Removing the hapax (ngrams with 1 cooc) -- Removing the hapax (ngrams with 1 cooc)
let !myCooc = HashMap.filter (>1) let !myCooc = {- HashMap.filter (>0)
$ getCoocByNgrams'' (Diagonal True) (identity, identity) (m1,m2) $ -} getCoocByNgrams'' (Diagonal True) (identity, identity) (m1,m2)
-- TODO MultiPartite Here -- TODO MultiPartite Here
graph <- liftBase graph <- liftBase
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment