Skip to content

haskell-gargantext
haskell-gargantext
Commit 881d5bab authored by qlobbe's avatar qlobbe
Browse files
Options

no logs

parent 92953b1b
Pipeline #598 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/Viz/Phylo/PhyloMaker.hs
    View file @ 881d5bab
    ...@@ -211,9 +211,9 @@ groupDocsByPeriod f pds es = ...@@ -211,9 +211,9 @@ groupDocsByPeriod f pds es =
    docsToTermFreq :: [Document] -> Vector Ngrams -> Map Int Double docsToTermFreq :: [Document] -> Vector Ngrams -> Map Int Double
    docsToTermFreq docs fdt = docsToTermFreq docs fdt =
    let nbDocs = fromIntegral $ length docs let nbDocs = fromIntegral $ length docs
    freqs = map (/(log nbDocs)) freqs = map (/(nbDocs))
    $ fromList $ fromList
    $ map (\lst -> (head' "docsToTermFreq" lst, log $ fromIntegral $ length lst)) $ map (\lst -> (head' "docsToTermFreq" lst, fromIntegral $ length lst))
    $ group $ sort $ concat $ map (\d -> nub $ ngramsToIdx (text d) fdt) docs $ group $ sort $ concat $ map (\d -> nub $ ngramsToIdx (text d) fdt) docs
    sumFreqs = sum $ elems freqs sumFreqs = sum $ elems freqs
    in map (/sumFreqs) freqs in map (/sumFreqs) freqs
    ......
    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