data(iris)
data<-iris[,1:4]
#######################################
#k-means clutering
kmeans(data,3) #k-mean clustering

# Cluster dendrogram
dist_data<-dist(data)
plot(hclust(dist_mc))
cutree(hclust(dist_data),3)

library(cluster)
help("silhouette")