# NOT RUN {
data(iris)
irisDisc <- as.data.frame(lapply(iris[1:4],
function(x) discretize(x, categories=9)))
irisDisc$Species <- iris$Species
classifier <- CBA(Species ~ ., irisDisc, supp = 0.05, conf=0.9)
rules <- rules(classifier)
inspect(rules)
# }
Run the code above in your browser using DataLab