没有直接的函数来打印一个 rxDTree 对象中的规则,但规则可以提取的第一个 rxDTree 对象转换为等效的 rpart 对象并从拨浪鼓包调用 asRules()。
示例︰
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))