Xawirses/GitMining
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

various improvements, corrected logic errors

Browse Source
This commit is contained in:
IGI-111
2015-04-07 14:28:40 +00:00
parent 56229fb85a
commit 421b3e4681
3 changed files with 21 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ExtractRules.hs
View File

@@ -6,8 +6,8 @@ import qualified Data.Set as Set
import qualified Data.Map as Map
import Data.Map(Map)
extractRules :: Confidence -> [ItemSet] -> [Rule]
extractRules threshold patterns = filter (\x -> threshold <= confidence patterns x) rules where
extractRules :: Confidence -> [ItemSet] -> [ItemSet] -> [Rule]
extractRules threshold table patterns = filter (\x -> threshold <= confidence table x) rules where
rules = Map.foldrWithKey (\k v old -> ruleFromSubset v k : old) [] subsets
subsets = foldr (\x old -> insertMultiple (filteredPowerset x) x old) Map.empty patterns
filteredPowerset (ItemSet set) = map (ItemSet . Set.fromList) $