R/withinRadius.R

In lindbrook/cholera: Amend, Augment and Aid Analysis of John Snow's Cholera Map

#' Test whether point "b" is within a given radius of point "a".
#'
#' @param a Numeric. Data frame of x-y coordinates.
#' @param b Numeric. Data frame of x-y coordinates.
#' @param radius Numeric.
#' @noRd

withinRadius <- function(a, b, radius = 2) {
  (a[, 1] - b[, 1])^2 + (a[, 2] - b[, 2])^2 <= radius^2
}