r - R を使用してカスタム変換を PMML に追加するにはどうすればよいですか?

Question

R の PMML に 2 つの変数の関数を追加しようとしています。

私が実行しようとしているモデルは

y = a + b*exp(がく片の幅 - がく片の長さ)^2

そして、PMML への入力を Sepal.Width と Sepal.Length にしたいと考えています。

次のコードを使用してフィールド派生_Sepal.Length を作成していますが、exp(Sepal.Width - Sepal.Length)^2 などのカスタム変換関数の使用方法がわかりません。

library(pmml)
library(XML)
library(pmmlTransformations)
irisBox <- WrapData(iris)
irisBox <- ZScoreXform(irisBox,"Sepal.Length")

model <- lm(Petal.Width ~ derived_Sepal.Length - Sepal.Width, data=irisBox$data)
pmmlModel <- pmml(model,transforms=irisBox)

pmmlModelEnhanced <- addLT(pmmlModel,namespace="4_2")
saveXML(pmmlModelEnhanced, file=outputPMMLFilename)

R を使用して PMML でデータ変換を行う際の一般的なアドバイスやヒントもいただければ幸いです。

ありがとう！