# NOT RUN {
## 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"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab