# NOT RUN {
# }
# NOT RUN {
# cluster the 4 numeric variables of the iris dataset
library(amap)
model <- hclusterpar(iris[,-5])
# Get the information about the cluster centers. The last
# parameter of the function used is the number of clusters
# desired.
library(rattle)
centerInfo <- centers.hclust(iris[,-5],model,3)
# convert to pmml
library(pmml)
pmml(model,centers=centerInfo)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab