#' @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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.