R/utils.R

Defines functions .as_dist

# 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))
}
andremrsantos/htspop documentation built on May 14, 2020, 11:40 a.m.