readded plotting of the dendrogram

mmedl94 · mmedl94 · commit 00a43278888a · 2025-03-06T15:21:48.000+01:00
diff --git a/vignettes/Market-segmentation.Rmd b/vignettes/Market-segmentation.Rmd
@@ -541,6 +541,7 @@ set.seed(1234)
 # Figure 12
 dist_matrix_f <- dist(t(ausActiv), method="binary")
 ward_cluster_f <- hclust(dist_matrix_f, "ward.D2")
+plot(ward_cluster_f)
 
 clusters_f <- cutree(ward_cluster_f, k = 15)
 plot(ward_cluster_f, main = "Dendrogram of Australian Vacation Activities",
