Kokkuvõte
PMML ei toetata. Siin on lahendus.RevoScaleR's rxDTree objekte saate teisendada rpart objektid. (Pange tähele, et rpart on soovitatav pakett, mis võib olla vajalik laadida.) Library(rpart)meetod <-"klass"vormi <-Kyphosis ~ Number + Startparms <-loendi (eelneva = c (0,8 0,2), kahjum = c (0, 2, 3, 0)Tükelda = "gini")kontrolli <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)kulu <-1 + seq(length(attr(terms(form), "term.labels")))rxDTreeObj <-rxDTree (valem = Kyphosis ~ Number + Start,andmete = kyphosis meetod meetod, parms = = parms,kontroll = kontrolli kulude maksumus =)pmml(AS.rpart(rxDTreeObj))
