#' Inverse distance weighting
#'
#' @export
#'
idw <- function(x, dist, na.rm = TRUE) {
s1 <- sum(x / dist^2, na.rm = na.rm)
s2 <- sum(1 / dist^2, na.rm = na.rm)
s1 / s2
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.