## data uniform on unit square
x <- matrix(runif(400), ncol=2)
bcl <- bootFlexclust(x, k=2:7, nboot=20, FUN=cclust)
bcl
summary(bcl)
## splitting the square into four quadrants should be the most stable
## solution (increase nboot if not)
plot(bcl)
densityplot(bcl, from=0)Run the code above in your browser using DataLab