Обзор
Не поддерживается PMML. Это временное решение.
Объекты rxDTree в RevoScaleR может быть преобразован к rpart объектам. (Обратите внимание, что рекомендуется использовать пакет, который необходимо загрузить, rpart.)
Library(rpart)
метод <-«класс»
формы <-Kyphosis ~ номер + Пуск
parms <-список (предыдущий = c (0,8, 0,2), потери = c (0, 2, 3, 0),
Разделение = «gini»)
элемент управления <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
maxdepth = 10, maxcompete = 4 maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
стоимость <-1 + seq(length(attr(terms(form), «term.labels»)))
rxDTreeObj <-rxDTree (Формула = Kyphosis ~ номер + Start,
данных = kyphosis метод = метод parms = parms,
элемент управления = контроль затрат = себестоимость)
PMML(AS.rpart(rxDTreeObj))
