# NOT RUN {
data("iris")
iris.disc <- discretizeDF.supervised(Species ~ ., iris)
iris.trans <- as(iris.disc, "transactions")
# mine CARs with items for "Species" in the RHS
cars <- mineCARs(Species ~ ., iris.trans, parameter = list(support = 0.3, confidence = 0.9))
inspect(cars)
# for conveiniance this can also be written without parameter and the list
cars <- mineCARs(Species ~ ., iris.trans, support = 0.3, confidence = 0.9)
# restrict the predictors to items starting with "Sepal"
cars <- mineCARs(Species ~ Sepal, iris.trans, support = 0.1, confidence = 0.9)
inspect(cars)
# }
Run the code above in your browser using DataLab