Det finns ingen direkt funktion för utskrift av regler i ett rxDTree-objekt, men reglerna kan extraheras genom först konverterar rxDTree-objektet till ett motsvarande rpart-objekt och anropa asRules() från paketet spännen.
Exempel:
library(rattle)set.seed(1234)
# classification
iris.sub <- c(sample(1:50, 25), sample(51:100, 25), sample(101:150, 25))
iris.dtree <- rxDTree(Species ~ Sepal.Length + Sepal.Width + Petal.Length + Petal.Width, data = iris[iris.sub, ])
iris.dtree
asRules(as.rpart(iris.dtree))
