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