## for quantitative case
if (FALSE) {
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"))
}
Run the code above in your browser using DataLab