From 2ade61411a014b3eed24bd2b382687d55233a9b5 Mon Sep 17 00:00:00 2001 From: leshe4ka46 Date: Sat, 15 Nov 2025 16:30:38 +0300 Subject: R(Cluster) --- RCluster/main2.r | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 RCluster/main2.r (limited to 'RCluster/main2.r') diff --git a/RCluster/main2.r b/RCluster/main2.r new file mode 100755 index 0000000..82bcf7e --- /dev/null +++ b/RCluster/main2.r @@ -0,0 +1,21 @@ +#!/usr/bin/env Rscript + + +income_elec_state = data.frame(a = c(1, 3:6, 8, 10, 12, 13), b = c(1:5, seq(6, 12, by = 2))) + +plot(income_elec_state) + +if (!require(ggdendro)) install.packages("ggdendro", repos = "https://cran.r-project.org/") +library(ggdendro) + +distance <- dist(income_elec_state, method = "euclidean") + +# single - closest pair of points +# complete - farthest pair of points +# average - average distance between all pairs +h_clust <- hclust(distance, method = "singlet") +h_clust + +plot(ggdendrogram(h_clust)) + +cutree(h_clust, k = 2) \ No newline at end of file -- cgit v1.2.3