Rezumat
PMML nu este acceptată. Iată o soluție.
Obiecte de rxDTree RevoScaleR pe pot impune rpart obiecte. (Rețineți că rpart este un pachet recomandate care trebuie să se încarce.)
Library(rpart)
metoda <-"clasa"
formular <-cifoze ~ numărul + Start
parms <-lista (prealabil = c (0,8, 0.2), pierderea = c (0, 2, 3, 0)
separare = "marius")
control <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
cost <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formula = cifoze ~ număr + Start
date = cifoze, metoda = metodă, parms = parms,
control = control cost = cost)
pmml(as.rpart(rxDTreeObj))