概要
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,方法方法,参数 = = 参数,
控件控制,成本 = = 成本)
pmml(as.rpart(rxDTreeObj))