hierarchiczne eleganckie:
#hierarchiczne
d <- dist(scale.flag, method = "euclidean", diag = FALSE, upper = FALSE)
hclust.result <- hclust(d, method = "ward.D", members = NULL)
plot(hclust.result)


#hierarchiczne przerobione 1
d <- dist(scale.flag, method = "maximum", diag = FALSE, upper = FALSE)
hclust.result <- hclust(d, method = "mcquitty", members = NULL)
plot(hclust.result)


#hierarchiczne przerobione 2
d <- dist(scale.flag, method = "minkowski", diag = FALSE, upper = FALSE)
hclust.result <- hclust(d, method = "single", members = NULL)
plot(hclust.result)