data(iris) # data set
data <- iris
res <- hierarchical(data[,1:4], titles = NA, analysis = "Obs", cor.abs = FALSE,
normalize = FALSE, distance = "euclidean", method = "ward.D",
horizontal = FALSE, num.groups = 3, savptc = FALSE, width = 3236,
height = 2000, res = 300, casc = FALSE)
message("R squared: ", res$R.sqt)
# message("Total sum of squares: ", res$sum.sqt)
message("Groups formed: "); res$groups
# message("Table with similarities and distances:"); res$tab.res
# message("Table with the results of the groups:"); res$res.groups
# message("Distance Matrix:"); res$mtx.dist
#write.table(file=file.path(tempdir(),"GroupData.csv"), res$groups, sep=";",
# dec=",",row.names = TRUE)
Run the code above in your browser using DataLab