摘要
不支援 PMML。 以下是因應措施。
RevoScaleR 的 rxDTree 物件,都可以強制型轉為 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))