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 + Startparms <-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 + Startdate = cifoze, metoda = metodă, parms = parms,control = control cost = cost)pmml(as.rpart(rxDTreeObj))
