# NOT RUN {
## Load a Dataset
data(EGATUR)
## Generate an asociation rules with apriori, remmember only support discretized variables,
## in this remove numerical variables.
Rules <- AssociationRules(EGATUR[,c(2,4,5,8)])
# }
Run the code above in your browser using DataLab