สรุป
PMML ไม่ได้รับการสนับสนุน ต่อไปนี้เป็นวิธีแก้ปัญหา
สามารถสามารถควบคุมวัตถุ rxDTree ของ RevoScaleR ไปยังวัตถุ rpart (โปรดสังเกตว่า rpart คือ แพ็คเกจแนะนำที่คุณอาจต้องโหลด)
library(rpart)
วิธี <- "คลาส"
แบบฟอร์ม <-Kyphosis ~ หมายเลข + เริ่มต้น
parms <-รายการ (ก่อนหน้า = c (0.8, 0.2), ขาดทุน = c (0, 2, 3, 0),
แบ่ง = "gini")
ควบคุม <-rpart.control (minsplit = 5, minbucket = 2, cp = 0.01
maxdepth = 10, maxcompete = 4, maxsurrogate = 5, 20 usesurrogate = 2, surrogatestyle = 0, xval = 0)
ต้นทุน <-1 + seq(length(attr(terms(form), "term.labels")))
rxDTreeObj <-rxDTree (สูตร = Kyphosis ~ เลข + เริ่มต้น
ข้อมูล = kyphosis วิธี =วิธี parms = parms
ควบคุม =ควบคุม ต้นทุน =ต้นทุน)
pmml(as.rpart(rxDTreeObj))
