# NOT RUN {
data(DataQuan) # conjunto de dados quantitativos
data <- DataQuan[,2:8]
rownames(data) <- DataQuan[1:nrow(DataQuan),1]
Res <- Cluster(data, hierarquico = TRUE, analise = "Obs", corabs = FALSE,
normaliza = FALSE, distance = "euclidean", method = "ward.D",
horizontal = FALSE, numgrupos = 2)
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(),"Groupeddata.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