set.seed(564) x <- matrix(rnorm(50 * 4), ncol = 2) x[1:25, 1] <- x[1:25, 1] + 4 x[1:25, 2] <- x[1:25, 2] + 4 x[26:50, 1] <- x[26:50, 1] - 7 x[26:50, 2] <- x[26:50, 2] - 7 x[51:75, 1] <- x[51:75, 1] + 4 x[51:75, 2] <- x[51:75, 2] - 4 x[76:100, 1] <- x[76:100, 1] - 2 x[76:100, 2] <- x[76:100, 2] + 2 km.out <- ... plot(x, col = (km.out$cluster + 1), main = "K-Means Clustering Results with K=???", xlab = "", ylab = "", pch = 20, cex = 2)