# NOT RUN {
# this example takes about 10 seconds
if (! requireNamespace("rCBA", quietly = TRUE)) {
message("Please install rCBA: install.packages('rCBA')")
} else
{
library(rCBA)
message(packageVersion("rCBA"))
discrModel <- discrNumeric(iris, "Species")
irisDisc <- as.data.frame(lapply(discrModel$Disc.data, as.factor))
rCBAmodel <- rCBA::build(irisDisc)
cCBAmodel <- rcbaModel2CustomCBAModel(rCBAmodel,discrModel$cutp,"Species",iris)
qCBAmodel <- qcba(cCBAmodel,iris)
print(qCBAmodel@rules)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab