data(DataQuan) # conjunto de dados quantitativos
data <- DataQuan[,2:8]
rownames(data) <- DataQuan[1:nrow(DataQuan),1]
res <- Cluster(data, titles = NA, hierarquico = TRUE, analise = "Obs",
corabs = FALSE, normaliza = FALSE, distance = "euclidean",
method = "ward.D", horizontal = FALSE, numgrupos = 2,
savptc = FALSE, width = 3236, height = 2000, res = 300,
casc = FALSE)
print("Tabela com as similaridades e distancias:"); res$tabres
print("Grupos formados:"); res$groups
print("Tabela com os resultados dos grupos:"); res$resgroups
print("Soma do quadrado total:"); res$sqt
print("Matriz de distancias:"); res$mtxD
write.table(file=file.path(tempdir(),"SimilarityTable.csv"), res$tabres, sep=";",
dec=",",row.names = FALSE)
write.table(file=file.path(tempdir(),"GroupData.csv"), res$groups, sep=";",
dec=",",row.names = TRUE)
write.table(file=file.path(tempdir(),"GroupResults.csv"), res$resgroups, sep=";",
dec=",",row.names = TRUE)
Run the code above in your browser using DataLab