# prepare data
data(iris)
irisDisc <- as.data.frame(lapply(iris[1:4], function(x) discretize(x, categories=9)))
irisDisc$Species <- iris$Species
classifier <- CBA(irisDisc, "Species", supp = 0.05, conf=0.9)
classifier
# training a classifier with transaction data (arules)
trans <- as(irisDisc, "transactions")
trans
classifier <- CBA(trans, "Species", supp = 0.05, conf=0.9)
classifier
Run the code above in your browser using DataLab