inst/example_packages/exampleGood/R/hypotenuse.R

In checked: Systematically Run R CMD Checks

#' Calculate the hypotenuse for an N-dimensional polygon
#'
#' @param ... Dimension lengths
#'
#' @export
#'
hypotenuse <- function(...) {
  return(sqrt(sum(vapply(list(...), `^`, numeric(1L), 2))))
}