# NOT RUN {
# Create a data set with two clusters
dat <- matrix(c(rnorm(100, 2, .1), rnorm(100, 3, .1),
rnorm(100, -2, .1), rnorm(100, -3, .1)), 200, 2)
# Get the optimal number of clustes
sol <- kselection(dat)
k <- num_clusters(sol)
# }
Run the code above in your browser using DataLab