是否有更好的功能在R中四舍五入

Question

我正在使用以下2个函数进行舍入

roundUp <- function(x){ifelse(round(abs(x-trunc(x)),1) == 0.5, trunc(x+0.5),round(x))}

specify_decimal <- function(x, k) trimws(format(round(x, k), nsmall=k))

向上取整我用于四舍五入到小数点后零位并指定小数点后到一些小数位。两者都没有在地方给出正确的结果。 例如，define_decimal（11.25,1）作为11.2出现，我希望结果为11.3。同样，舍入也不会舍入到小数点后5位的下一个数字。 请建议是否有更好的方法来准备此类函数，以将数字舍入与excel输出匹配。