Sammendrag
PMML støttes ikke. Her er en midlertidig løsning.
Revoscaler's rxDTree-objekter kan bli tvunget til rpart objekter. (Vær oppmerksom på at rpart er en anbefalt pakke som du må kanskje laste inn.)
Library(rpart)
metoden <-"klasse"
skjemaet <-Kyphosis ~ nummer + Start
parametrene <-listen (tidligere = c (0,8, 0,2), tap = c (0, 2, 3, 0),
Del = "gini")
kontroll <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
kostnader <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formelen = Kyphosis ~-startnummer + Start,
data = kyphosis, metoden = metode for parametrene = parametrene,
kontroll = kontroll, koster = kostnad)
pmml(AS.rpart(rxDTreeObj))