R/distance-between-points.R

#' distance function
#'
#' @param points
#' @param p
#'
#' @return
#' @export
#'
#' @examples
minDist <- function(points, p){
  which.min(colSums((t(points) - p)^2))
}
luehkenecology/pathogenrisk documentation built on May 7, 2019, 4:41 p.m.