powered by
Frac
Frac(x, dpwr = NA) MaxDigits(x)
dpwr
Ndec
x <- rnorm(5)*100 x Frac(x) # multiply by 10^4 Frac(x, dpwr=4) MaxDigits(c(1.25, 1.8, 12.0, 1.00000))
Run the code above in your browser using DataLab