R/trackDistance.R

In tkatsuki/dipr: Digital Image Processing with R

#' @rdname tracking
#' @export
#' @examples
#' trackDistance()

trackDistance <- function (xy, unit = 1) {
  sqrt((head(xy[,1], -1) - xy[-1, 1])^2 + (head(xy[,2], -1) - xy[-1, 2])^2)*unit
}