# NOT RUN {
library(arulesCBA)
library(discretization)
data(iris)
irisDisc <- mdlp(iris)$Disc.data
irisDisc <- as.data.frame(lapply(irisDisc, as.factor))
classifier <- wCBA(Species ~ ., data = irisDisc, supp = 0.05, conf=0.9)
result <- predict(classifier, irisDisc)
# }
Run the code above in your browser using DataLab