Резюме
PMML не се поддържа. Ето решение.
RevoScaleR на rxDTree обекти могат да бъдат принудени да rpart обекти. (Забележете, че rpart се препоръчва пакет, който може да се наложи да се зареди.)
Library(rpart)
метод <-"клас"
формуляр <-кифоза ~ номер + стартиране
parms <-списък (предварително = c (0,8, 0,2) загуба = c (0, 2, 3, 0),
разделяне = "Джини")
контрол <-rpart.control (minsplit = 5, minbucket = 2, ПС = 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 (формулата = кифоза ~ номер + Старт,
данните = кифоза, метод = метод, parms = parms,
контрол = контрола, Цена = разход)
pmml(As.rpart(rxDTreeObj))
