module Data.HInduce.Examples.Associations where
import Data.HInduce.Associations.Apriori
import Text.Layout
import System.IO.Unsafe
import qualified Data.Set as S
import qualified Data.Vector as V
import Control.Arrow
import Data.Set
import Data.Vector
import Paths_hinduce_examples
transactions :: Data.Vector.Vector (Data.Set.Set Int)
items :: Data.Set.Set Int
(transactions, items) = unsafePerformIO $ do
name <- getDataFileName "data/T10I4D100K.dat"
ds <- loadDataSet name
return $ V.fromList &&& S.unions $ ds