# 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 f(k) vector
sol <- kselection(dat)
f_k <- get_f_k(sol)
# }
Run the code above in your browser using DataLab