Kopsavilkums
PMML netiek atbalstīta. Šeit ir risinājums.
RevoScaleR ir rxDTree objekti var pakļaut rpart objekti. (Ņemiet vērā, ka rpart ir ieteicamā pakotni, kurai vēlaties ielādēt.)
Library(rpart)
metode <-"klase"
veidlapas <-Kyphosis ~ numuru + sākt
parms <-saraksts (iepriekš = c (0.8 0.2), zaudējumu = c (0, 2, 3, 0)
sadalītais = "Džini")
vadības <-rpart.control (minsplit = 5 minbucket = 2, cp = 0,01,
maxdepth = 10 maxcompete = 4 maxsurrogate = 5 20 usesurrogate = 2 surrogatestyle = 0, xval = 0)
izmaksu <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formulu = Kyphosis ~ numuru + sākt
datu kyphosis metode = = metode parms = parms,
vadības kontroles izmaksas = = izmaksas)
pmml(as.rpart(rxDTreeObj))