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))
