在pmml中的functionxform中的formulatext - 保持值不变

Question

在评估表达式后，有没有办法保持Species值不变？ 我想创建一个派生列，如果物种是setosa，则分配-9，否则返回原始值。 ＆＃34;保持原样＆＃34;是一个弥补的表达。感谢。

irisBox <- FunctionXform(WrapData(iris),origFieldName="Species",
                         newFieldName="Species.Setosa",
                         formulaText="if (Species == 'setosa') {-9} else {keep as is}")
head(irisBox$data)

顺便说一下，下面的操作适用于数值变量，如Petal.Width -

irisBox <- FunctionXform(irisBox,origFieldName="Petal.Width",
                         newFieldName="trial",
                         formulaText="if (Petal.Width == -9999999) {0} else Petal.Width ")

但是，如果我为＆＃34; Species＆＃34;指定别物种。列然后它不起作用。