Nothing
#' Compute distance between case fatalities.
#'
#' @param a Numeric. Case ID.
#' @param b Numeric. Case ID.
#' @param meters Logical. Compute metric (meters) or nominal distance.
#' @export
caseDistance <- function(a = 19, b = 263, meters = FALSE) {
sel <- cholera::fatalities$case %in% c(a, b)
d <- stats::dist(cholera::fatalities[sel, c("x", "y")])
ifelse(meters, cholera::unitMeter(d), d)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.