# NOT RUN {
# Uses sports data.
data(sportsranks)
# Obtain the K-means clustering for sports ranks.
kms <- kmeans(sportsranks, centers = 5, nstart = 10)
# Silhouettes
sil <- silhouette.km(sportsranks, kms$centers)
# }
Run the code above in your browser using DataLab