具有任意基数的舍入数字，例如：基数为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