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ėtiparms <-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 ekraneduomenų = kupra, būdas = būdas, parms = parms,valdymo = valdymo, kaina = kaina)PMML(as.rpart(rxDTreeObj))
