概要
PMML はサポートされていません。 回避策を次に示します。
Rpart オブジェクトには、RevoScaleR の rxDTree オブジェクトを変換できます。(その 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))