R/w_redondeo_fijo.R

In pelishk/upax_library: Librería de análisis

#' función de redondeo
#'
#' Redondeo de un conjunto de valores numéricos manteniendo la suma total inicial
#'
#' @param x vector - vector con datos numericos
#' @param digitos numeric - valor numerico con el numero de digitos deseados en la mantiza

#' @return vector - vector redondeado



w_redondeo_fijo <- function(x, digitos = 0) {
  up <- 10 ^ digitos
  x <- x * up
  y <- floor(x)
  indices <- tail(order(x-y), round(sum(x)) - sum(y))
  y[indices] <- y[indices] + 1
  y / up
}