Сохранение правил дерева решений rpart в информационный фрейм

Question

Я использую rattle :: asRules () для отображения на экране правил принятия rpart, моя цель - сохранить правила в аккуратном фрейме данных.

Вот пример:

library(rpart)
library(rattle)

fit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis)
rattle::asRules(fit, TRUE)

Желаемый вывод:

Answer 1

В конце концов, я использовал функцию sink (), чтобы перенаправить вывод R в файл.

sink("rules.txt")
rattle::asRules(fit, TRUE)
sink()