
zapsmall
determines a digits
argument dr
for
calling round(x, digits = dr)
such that values close to
zero (compared with the maximal absolute value) are ‘zapped’,
i.e., treated as 0
.
zapsmall(x, digits = getOption("digits"))
x2 <- pi * 100^(-1:3)
print(x2 / 1000, digits = 4)
zapsmall(x2 / 1000, digits = 4)
zapsmall(exp(1i*0:4*pi/2))
Run the code above in your browser using DataLab