# Data simulation
set.seed(1)
simul <- SimulateClustering(n = c(10, 10), pk = 50)
# Hierarchical clustering
myhclust <- HierarchicalClustering(
xdata = simul$data,
nc = seq_len(20)
)
# Weighted Hierarchical clustering (using COSA)
if (requireNamespace("rCOSA", quietly = TRUE)) {
myhclust <- HierarchicalClustering(
xdata = simul$data,
weighted = TRUE,
nc = seq_len(20),
Lambda = c(0.2, 0.5)
)
}
Run the code above in your browser using DataLab