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