Ringkasan
PMML tidak didukung. Berikut adalah penyelesaian.
Objek rxDTree RevoScaleR yang dapat dipaksa rpart objek. (Catatan rpart tersebut adalah paket disarankan bahwa Anda mungkin perlu memuat.)
Library(rpart)
metode <-"kelas"
bentuk <-Kyphosis ~ nomor + mulai
parms <-daftar (sebelumnya = c (0,8, 0.2) kehilangan = c (0, 2, 3, 0),
terpisah = "gini")
kontrol <-rpart.control (minsplit = 5, minbucket = 2, cp = 0,01,
maxdepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
biaya <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (formula = Kyphosis ~ nomor + memulai,
data = kyphosis, metode = metode, parms = parms,
kontrol = kontrol, biaya = biaya)
pmml(AS.rpart(rxDTreeObj))