Skip to content

haskell-gargantext
haskell-gargantext
Commit 5cc28172 authored by qlobbe's avatar qlobbe
Browse files
Options

change the candidate selection

parent 71bfa432
Pipeline #2901 failed with stage
    in 44 minutes and 25 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 5 deletions
    src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
    View file @ 5cc28172
    ...@@ -247,11 +247,12 @@ getNextPeriods fil max' pId pIds = ...@@ -247,11 +247,12 @@ getNextPeriods fil max' pId pIds =
    getCandidates :: PhyloGroup -> [[(PhyloGroupId,[Int])]] -> [[(PhyloGroupId,[Int])]] getCandidates :: PhyloGroup -> [[(PhyloGroupId,[Int])]] -> [[(PhyloGroupId,[Int])]]
    getCandidates ego targets = getCandidates ego targets =
    map (\groups' -> if (length (ego ^. phylo_groupNgrams)) > 1
    -- filter (\g' -> (not . null) $ intersect (ego ^. phylo_groupNgrams) (snd g') then
    filter (\g' -> (> 1) $ length $ intersect (ego ^. phylo_groupNgrams) (snd g') map (\groups' -> filter (\g' -> (> 1) $ length $ intersect (ego ^. phylo_groupNgrams) (snd g')) groups') targets
    ) groups') targets else
    map (\groups' -> filter (\g' -> (not . null) $ intersect (ego ^. phylo_groupNgrams) (snd g')) groups') targets
    matchGroupsToGroups :: Int -> [PhyloPeriodId] -> Proximity -> Double -> Map Date Double -> Map Date Cooc -> [PhyloGroup] -> [PhyloGroup] matchGroupsToGroups :: Int -> [PhyloPeriodId] -> Proximity -> Double -> Map Date Double -> Map Date Cooc -> [PhyloGroup] -> [PhyloGroup]
    ......
    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