### Analyse with apriori the table Customer_item

# Data import
item_testdata <- read.table("C:/Users/michael.fueg/Documents/R/Daten/Customer_item.txt",header=TRUE)

WarenGruppe=c("WG1","WG2","WG3","WG2","WG3") # We have Item1,...Item5

# Build transaction-class
library(arules)
trans <- as(split(item_testdata[,"Item"], item_testdata[,"Customer"]), "transactions")

# Build hierarchical variable
itemInfo(trans)[["WarenGruppe"]] <- WarenGruppe
summary(trans)
inspect(trans)

trans.aggregate <- aggregate(trans, WarenGruppe)
inspect(trans.aggregate)

# Call apriori
rules <- apriori(trans)
inspect(rules)

rules.aggregate <- aggregate(rules, WarenGruppe)
inspect(rules.aggregate)