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