Buku ini sedang dalam tahap tinjauan terbuka. Kami ingin umpan balik Anda untuk membuat buku ini lebih baik bagi. Anda dapat memberikan anotasi pada beberapa teks dengan memilihnya menggunakan kursor dan kemudian klik “Beri Anotasi” pada menu pop-up. Anda juga dapat melihat anotasi orang lain: klik tanda panah di sudut kanan atas halaman

8.5 Eksperimen Divisive Clustering

Berikut adalah contoh kode untuk melakukan Divisive Analysis Clustering (DIANA) menggunakan fungsi diana() dari paket cluster di R.

library(cluster)
res.diana <- diana(x = data, 
                   stand = TRUE, 
                   metric = "euclidean")

Visualisasi dendrogram menggunakan fungsi fviz_dend dari paket factoextra

fviz_dend(res.diana, k =2, 
          cex = 0.5, 
          k_colors = c("#E7B800", "#FC4E07"),
          color_labels_by_k = TRUE, 
          rect = TRUE 
          )
Visualisasi Dendogram

Gambar 8.6: Visualisasi Dendogram