带有任意基数的圆数，例如：基数7

Question

是否有内置（或存在于任何包中）的函数可以使用任意基数舍入数字？例如。 la round_base(26,base = 7)给出28。谢谢！

简单代码：

n = 26.5
base = 7

a = round(n)
print(a)
for (i in round(a-base/2):round(a+base/2)) {
  if (i %% (base) == 0) a = i 
}

print(a)  

[1] 28

Answer 1

确实

round_base <- function(x,base) {
    round(x/base)*base
}

为你工作？

round_base(26,7)
## [1] 28