สรุป
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.01maxdepth = 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))
