# Wrapper to convert a distance vector into `dist`
.as_dist <- function(vec, pops) {
D <- matrix(0, length(pops), length(pops))
D[lower.tri(D)] <- vec
return(stats::as.dist(D))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.