# NOT RUN {
data(iris)
head(iris)
kmeans.fit <- kmeans(iris[,1:4],3)
labs <- iris[,5]
cls <- kmeans.fit[["cluster"]]
cm <- calculateConfusion(labels = labs, clusters = cls)
assignClusterLabels(cm)
# }
Run the code above in your browser using DataLab