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 + Start
parms <-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))