R/distance.R

In SVA-SE/svamp: Tools for support in outbreak management and suspicion investigation

##' Calculate the distance between farms
##'
##' @title DistMatrix
##' @param farms_in_buffers A spatial point data.frame of farms
##' @param longlat coordinate type
##' @param outbreak the reference farm(s)
##' @import sp
##' @return Matrix
##' @author Giampaolo Cocca
DistMatrix = function(farms_in_buffers, longlat = FALSE, outbreak) {
  distance <- sapply(1:length(farms_in_buffers[[1]]),
    function(x) {spDistsN1(coordinates(outbreak),
                           coordinates(farms_in_buffers[x,]),
                           longlat)})
  return(distance)
}