Steptile results gallery

so <- scale(olives[, 3:10])
rr <- replicate(20, {
    kmeans(so, 8)$cluster
})

x <- as.data.frame(cbind(olives[, 1:2], rr))

# Area and Region with all 20 clusterings

scpcp(x, sel = "data[,1]", sel.palette = "rgb", col.opt = list(alpha = 0.5))