RのPMML成功への機能が、ここではコンテナ

Question

で認識されていない機能が正常に動作して素敵なPMML出力を作成し、ライブラリ

library(pmml) 
library(pmmlTransformations) 
data(iris) 
irisBox <- WrapData(iris) 
irisBox <- FunctionXform(irisBox,origFieldName="Sepal.Length", 
      newFieldName="Sepal.Length.Transformed", 
      formulaText="ifelse(Sepal.Length>5,Sepal.Length*1.2, Sepal.Length*.8)") 
mod1 <- lm(Sepal.Length.Transformed ~ Petal.Length, irisBox$data) 
pmml(mod1, transform = irisBox) 

のカップルを使用したRスクリプトの例です。しかし、ifelse文はpmml 4_3の認識可能な関数ではありません。誰もがpmmlの実行可能なコマンドを生成する上記のスクリプトの代わりにお勧めですか？

私はDiscretizeXformがpmmlTransformationsパッケージで推奨されていることを認識し、それは非常に面倒ですので、それは外部のファイルからブレークポイントを読み取ることがあるので、私が使用するには消極的です。

Answer 1

pmmlTransformationsパッケージには、「ifelse」Rの機能を処理する方法を知っている、と-であるとして、それを通過しません。それはApply@function="if"を含むべきであると、得られるPMMLドキュメントはApply@function="ifelse"が含まれている理由です。

PMML "if" built-in functionがあれば、他の分岐ロジックを表現する完全にことができます：

は、IF-THEN-ELSEロジックを実装します。 ELSEの部分はオプションです。 ELSE部分がなく、ブール値がfalseの場合、欠損値が返されます。溶液は、溶媒として

「ifelse」Rの機能を完全にサポートを含め、（「ボクシング」data.frameオブジェクトではなく）、その後、あなたが式の内部で機能エンジニアリングを行うことができますされ、r2pmml packageへの切り替えを検討してください：

library("randomForest") 
library("r2pmml") 

iris.rf = randomForest(Species ~ ifelse(Sepal.Length>5,Sepal.Length*1.2, Sepal.Length*.8) + ., data = iris) 

r2pmml(iris.rf, "iris.pmml") 

Answer 2

簡単に交換がうまくいくように見えます。

irisBox <- WrapData(iris) 
irisBox <- FunctionXform(irisBox,origFieldName="Sepal.Length", 
     newFieldName="Sepal.Length.Transformed", 
     formulaText="if(Sepal.Length>5) Sepal.Length*1.2 else Sepal.Length*.8") 
mod1 <- lm(Sepal.Length.Transformed ~ Petal.Length, irisBox$data) 
pmml(mod1, transform = irisBox)