pmml export is failing

[Graham Williams]

pmml but I am getting "script out of bound" error.

Here is the code snippet and corresponding output for your reference:

Code: library(rpart) data("mammoexp", package = "TH.data") mammoct <- rpart(ME~., data = mammoexp) pmml_output <- pmml.rpart(mammoct)

Output

library(rpart) data("mammoexp", package = "TH.data") mammoct <- rpart(ME~., data = mammoexp) pmml_output <- pmml.rpart(mammoct) Error in datypelist[[namelist[ndf2]1]] : subscript out of bounds

Reported by Ankit Sharma