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 + mulaiparms <-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))
