Özet
PMML desteklenmiyor. Geçici bir çözüm aşağıda verilmiştir.
RevoScaleR'ın rxDTree nesneleri rpart nesnelere coerced. (O rpart yüklemek için gereksinim duyduğunuz önerilen bir paket olduğunu unutmayın.)
Library(rpart)
yöntem <-"class"
Form <-Kyphosis ~ sayı + Başlat
Parametreler <-listesi (önceki = c (0.8, 0,2) kaybı = c (0, 2, 3, 0),
bölme = "gini")
denetimi <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
MaxDepth = 10, maxcompete = 4, maxsurrogate, 5 = 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
Maliyet <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (Formül = Kyphosis ~ Number + başlangıç,
Veri kyphosis, yöntem = = yöntemi, Parametreler parametreler, =
Denetim denetim, Maliyet = = Maliyet)
pmml(AS.rpart(rxDTreeObj))