## ------------------------------------------------
## Method `KMeans$new`
## ------------------------------------------------
km <- KMeans$new()
km <- KMeans$new(n_clusters = 10)
km <- KMeans$new(n_clusters = 10, random_state = 100)
## ------------------------------------------------
## Method `KMeans$fit`
## ------------------------------------------------
data(abalone)
km <- KMeans$new()
km$fit(abalone[1:100,])
## ------------------------------------------------
## Method `KMeans$get_cluster_centers`
## ------------------------------------------------
print(km$get_cluster_centers())
## ------------------------------------------------
## Method `KMeans$get_labels`
## ------------------------------------------------
print(km$get_labels())
Run the code above in your browser using DataLab