y1 <- c(1, 2, 1, 0); y2 <- c(2, 1, 0, 2)
y3 <- c(8, 8, 9, 7); y4 <- c(6, 9, 8, 9)
Data <- rbind(y1, y2, y3, y4)
hc <- hclust_average(Data, metric = "euclidean",
print.steps = TRUE,
plot = TRUE,
label.names = TRUE)
Run the code above in your browser using DataLab