Souhrn
PMML není podporována. Zde je řešení.
RevoScaleR's rxDTree objekty lze přiřadit k rpart objekty. (Všimněte si, že rpart je doporučený balíček, který je nutné zavést).
Library(rpart)
Metoda <-"třída"
formuláře <-Kyphosis ~ číslo + Start
všechny parametry <-seznam (předchozí = c (0,8, 0,2), ztráta = c (0, 2, 3, 0),
Rozdělit = "gini")
prvek <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2 surrogatestyle = 0, xval = 0)
náklady <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (vzorec = Kyphosis ~ číslo + Start
data = kyphosis metoda = metoda, všechny parametry = všechny parametry,
řízení = řízení nákladů = náklady)
pmml(AS.rpart(rxDTreeObj))