## Not run:
# # define some transformations
# library(pmml)
# library(pmmlTransformations)
#
# irisBox <- WrapData(iris)
# irisBox <- ZScoreXform(irisBox,xformInfo = "column1->d1")
# irisBox <- ZScoreXform(irisBox,xformInfo = "column2->d2")
#
# #make a LocalTransformations element and save it to an external file
# pmml_trans <- pmml(NULL, transforms=irisBox)
# write(toString(pmml_trans),file = "xform_iris.pmml")
#
# # Later, we may need to read in the PMML model into R
# # 'lt' below is now a XML Node, as opposed to a string
#
# lt <- fileToXMLNode("xform_iris.pmml")
# ## End(Not run)
Run the code above in your browser using DataLab