Santrauka
PMML nepalaikomas. Štai kaip išspręsti šią problemą.
RevoScaleR's rxDTree objektų galite pakeisti rpart objektams. (Atkreipkite dėmesį, kad rpart yra rekomenduojama paketą, kurį norite įkelti).
Library(rpart)
būdas <-"klasė"
formos <-kupra ~ numeris ir pradėti
parms <-sąrašas (prieš = c (0,8 0,2), nuostolis = c (0, 2, 3, 0)
perskirti = "gini")
valdymo <-rpart.control (minsplit = 5, minbucket = 2, SP = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
Kaina <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formulę = kupra ~ numeris + pradžios ekrane
duomenų = kupra, būdas = būdas, parms = parms,
valdymo = valdymo, kaina = kaina)
PMML(as.rpart(rxDTreeObj))