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