x <- rbind(matrix(rnorm(100, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 1, sd = 0.3), ncol = 2))
colnames(x) <- c("x", "y")
cl <- kMeans(x, 2)
data(trees, package="datasets")
cl2 <- kMeans(t(trees),3)
Run the code above in your browser using DataLab