概要
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))
