Zusammenfassung
PMML wird nicht unterstützt. Hier ist eine Lösung.
RevoScaleR RxDTree-Objekte können auf Rpart Objekte umgewandelt werden. (Hinweis: Diese Rpart Empfohlenes Paket, die Sie laden.)
Library(rpart)
Methode <-"Klasse"
Formular <-Kyphose ~ Number + Start
Parms <-Liste (vorherige = c (0,8, 0,2) Verlust = c (0, 2, 3, 0)
Teilen = "Gini")
Steuerelement <-rpart.control (Minsplit = 5, Minbucket = 2, cp = 0,01
MaxDepth = 10, Maxcompete = 4, Maxsurrogate = 5, 20 Usesurrogate = 2 Surrogatestyle = 0, Koordinaten Xval = 0)
Kosten <-1 + seq(length(attr(terms(form), "term.labels")))
RxDTreeObj <-RxDTree (Formel = Kyphose ~ Number + Start
Daten = kyphose Methode = Methode Parms = Parms,
Steuerelement = Kontrolle Kosten = Kosten)
PMML(As.rpart(rxDTreeObj))
