# Alguns comandos básicos - Análise de Agrupamentos

dados<- read.table("http://wiki.icmc.usp.br/images/a/a8/ONU.txt", header=TRUE)

rownames(dados)<-dados[,1]

dados<-dados[,2:5]

dist(dados)

hclust(dist(dados))

plot(hclust(dist(dados)))

kmeans(dados, 4)

cl <- kmeans(dados, 4)

plot(dados, col = cl$cluster)

points(cl$centers, col = 1:5, pch = 8)

sort(cl$cluster)