Tóm tắt
PMML không được hỗ trợ. Đây là một giải pháp.
Của RevoScaleR rxDTree đối tượng có thể được ép rpart đối tượng. (Lưu ý rằng rpart gói khuyến nghị bạn có thể cần tải.)
Library(rpart)
phương pháp <-"lớp"
mẫu <-Kyphosis ~ số + khởi động
parms < / danh sách (trước = c (0,8, 0.2) mất = c (0, 2, 3, 0),
tách = "gini")
kiểm soát <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01,
maxdepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
chi phí <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (công thức = Kyphosis ~ số + bắt đầu,
dữ liệu = kyphosis, phương pháp = phương pháp parms = parms,
PA = kiểm soát, chi phí = chi phí)
pmml(as.rpart(rxDTreeObj))
