R/arrond_100.R

Defines functions arrond_100

Documented in arrond_100

#' arrondi a la centaine.
#'
#' @param x vecteur numerique
#'
#' @return vecteur numerique
#' @export
#'
#' @examples
#' arrond_100(1198L)
arrond_100 <- function(x) {
  return(100 * round(x / 100, digits = 0))
}
ggwinter/eptb2022 documentation built on Feb. 19, 2022, 7:17 p.m.