R/idw.R

#' 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
}
italocegatta/forestr documentation built on May 18, 2019, 5:52 a.m.