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 độngparms < / 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))
