## the famous iris data set
## Not run:
# data(iris)
# model <- clusterDiagGaussian(iris[1:4], 3, 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