使用修改的舍入函数考虑以下代码：
round2 = function(x, n) {
posneg = sign(x)
z = abs(x)*10^n
z = z + 0.5
z = trunc(z)
z = z/10^n
z*posneg
}
n<-387.9
d<-400
round2(n/d,4)
该函数应返回0.9698，但返回0.9697。这似乎发生在截断函数期间，当9698被截断为9697.我是否可以使用另一个舍入函数（除了默认的舍入函数）来使这个值正确？