qCBA (version 0.3.1)

arulesCBAModel2CustomCBAModel: arulesCBAModel2CustomCBAModel Converts a model created by arulesCBA so that it can be passed to qCBA

Description

Creates instance of customCBARuleModel class based on model created by the arulesCBA package. Instance of customCBARuleModel can then be passed to qcba instead of an instance of CBARuleModel, which is created with the arc package.

Usage

arulesCBAModel2CustomCBAModel(arulesCBAModel, cutPoints, rawDataset, attTypes)

Arguments

arulesCBAModel

aobject returned by arulesCBA::CBA()

cutPoints

specification of cutpoints applied on the data before they were passed to rCBA::build

rawDataset

the raw data (before discretization). This dataset is used to guess attribute types if attTypes is not passed

attTypes

vector of attribute types of the original data. If set to null, you need to pass rawDataset.

Examples

# NOT RUN {
# }
# NOT RUN {
if (! requireNamespace("arulesCBA", quietly = TRUE)) {
 message("Please install arulesCBA: install.packages('arulesCBA')")
}  else {
 message("The following code might cause the 'pruning exception' rCBA error on some installations")
 discrModel <- discrNumeric(iris, "Species")
 irisDisc <- as.data.frame(lapply(discrModel$Disc.data, as.factor))
 arulesCBAModel <- arulesCBA::CBA(Species ~ ., data = irisDisc, supp = 0.05, 
  conf=0.9, lhs.support=TRUE)
 cCBAmodel <- arulesCBAModel2CustomCBAModel(arulesCBAModel, discrModel$cutp, iris)
 qCBAmodel <- qcba(cbaRuleModel=cCBAmodel,datadf=iris)
 print(qCBAmodel@rules)
 }
# }
# NOT RUN {
# }