# load data
data("banknote")
# compute the k-means partition
set.seed(2024)
cl <- kmeans(banknote[-1], centers = 2, nstart = 1)$cluster
# convert k-means hard assignment into cluster parameters
clpars <- clust2params(banknote[-1], cl)
clpars
Run the code above in your browser using DataLab