#' Compute Euclidean distance
#'
#' @param x1 A vector of coordinates
#' @param x2 A vector of coordinates. Make sure order corresponds to x1.
#' @export
euc.dist <- function(x1, x2) sqrt(sum((x1 - x2) ^ 2))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.