Objects for Classifiers Based on Association Rules
Objects for classifiers based on association rules have class "CBA"
.
A creator function CBA_ruleset()
and several methods are provided.
CBA_ruleset(formula, rules, method = "first", weights = NULL, default = NULL, description = "Custom rule set") ## S3 method for class 'CBA' print(x, ...) ## S3 method for class 'CBA' rules(x) ## S3 method for class 'CBA' predict(object, newdata, type = c("class", "score"), ...)
formula |
A symbolic description of the model to be fitted. Has to be of form |
rules |
A set of class association rules mined with |
method |
Classification method |
weights |
Rule weights for method majority. Either a quality measure available in |
default |
Default class of the form |
,
description |
Description field used when the classifier is printed. |
x, object |
An object of class |
newdata |
A data.frame or transactions containing rows of new entries to be classified. |
type |
Predict |
... |
Additional arguments currently not used. |
CBA_ruleset
creates a new object of class CBA
using the provides rules as the rule base.
For method "first"
, the user needs to make sure that the
rules are predictive and sorted from most to least predictive.
CBA_ruleset()
returns an object of class
CBA
representing the trained classifier
with fields:
formula |
used formula. |
discretization |
discretization information. |
rules |
the classifier rule base. |
default |
default class label ot |
weights |
rule weights. |
biases |
class biases. |
method |
classification method. |
description |
description in human readable form. |
predict
returns predicted labels for newdata
.
rules
returns the rule base.
Michael Hahsler
CBA
,
mineCARs
,
apriori
,
rules
,
transactions
.
data("iris") # discretize and create transactions iris.disc <- discretizeDF.supervised(Species ~., iris) trans <- as(iris.disc, "transactions") # create rule base with CARs cars <- mineCARs(Species ~ ., trans, parameter = list(support = .01, confidence = .8)) cars <- cars[!is.redundant(cars)] cars <- sort(cars, by = "conf") # create classifier cl <- CBA_ruleset(Species ~ ., cars) cl # look at the rule base rules(cl) # make predictions prediction <- predict(cl, trans) table(prediction, response(Species ~ ., trans)) # use weighted majority cl <- CBA_ruleset(Species ~ ., cars, method = "majority", weights = "lift") cl prediction <- predict(cl, trans) table(prediction, response(Species ~ ., trans))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.