## ------------------------------------------------
## Method `HierarchicalClustering$new`
## ------------------------------------------------
hc <- HierarchicalClustering$new()
hc <- HierarchicalClustering$new(n_clusters = 10)
hc <- HierarchicalClustering$new(n_clusters = 10, linkage = "complete")
## ------------------------------------------------
## Method `HierarchicalClustering$fit`
## ------------------------------------------------
data(abalone)
hc <- HierarchicalClustering$new()
hc$fit(abalone[1:100,])
## ------------------------------------------------
## Method `HierarchicalClustering$get_cluster_centers`
## ------------------------------------------------
print(hc$get_cluster_centers())
## ------------------------------------------------
## Method `HierarchicalClustering$get_labels`
## ------------------------------------------------
print(hc$get_labels())
Run the code above in your browser using DataLab