## for quantitative case
## Not run:
# data(iris)
# model <- clusterGamma( data=iris[1:4], nbCluster=3
# , models=clusterGammaNames(prop = "equal")
# , strategy = clusterFastStrategy())
# plot(model)
# plot(model, c(1,3))
# plot(model, c("Sepal.Length","Sepal.Width"))
# ## End(Not run)
Run the code above in your browser using DataLab