Samenvatting
PMML wordt niet ondersteund. Hier is een tijdelijke oplossing.
RevoScaleR van rxDTree-objecten kunnen worden gedwongen naar rpart objecten. (Houd er rekening mee dat rpart is een aanbevolen pakket dat u wilt laden.)
Library(rpart)
methode <-'klasse'
formulier <-Kyphosis ~ nummer + Start
parameters <-lijst (voorafgaande = c (0,8, 0,2) verlies = c (0, 2, 3, 0),
splitsen = "gini")
besturingselement <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
maxdepth = 10, maxcompete = 4, maxsurrogate 5, = usesurrogate 20 = 2, surrogatestyle = 0, xval = 0)
kosten <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formule = Kyphosis ~ getal + Start,
Data = kyphosis, methode methode en parameters = parameters, =
besturingselement = beheer, kosten = kosten)
pmml(as.rpart(rxDTreeObj))