if ("median" %in% supported_methods()) { # the condition under if evaluates to TRUE
dendrogram <- hclust1d(rnorm(100), method = "median")
plot(dendrogram)
} else {
stop("Error: median linkage method not supported in hclust1d")
}
Run the code above in your browser using DataLab