我正在使用rattle :: asRules()在屏幕上显示rpart决策规则, 我的目标是将规则保存到整洁的数据框中。
这里是一个例子:
library(rpart)
library(rattle)
fit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis)
rattle::asRules(fit, TRUE)
答案 0 :(得分:0)
最后,我使用了sink()函数将R输出转移到文件中。
sink("rules.txt")
rattle::asRules(fit, TRUE)
sink()