x <- matrix(rnorm(30), ncol = 3)
hc <- hclust(dist(x), method = "complete")
if(require("cluster", quietly = TRUE)) {# is a recommended package
ag <- agnes(x, method = "complete")
hcag <- as.hclust(ag)
## The dendrograms order slightly differently:
op <- par(mfrow = c(1,2))
plot(hc) ; mtext("hclust", side = 1)
plot(hcag); mtext("agnes", side = 1)
detach("package:cluster")
}
Run the code above in your browser using DataLab