set.seed(1)
x <- as.matrix(iris[, -5])
# run bootstrap kmeans
res <- boot.kmeans(data = x, groups = 3, iterations = 20)
# scatterplot matrix of all variables
bootk.hardsoftvis(x, res, TRUE)
# scatterplot matrix of variable 1 and variable 2
bootk.hardsoftvis(x, res, plotallvars = FALSE, var1 = 1, var2 = 2)
Run the code above in your browser using DataLab