segue sugestão library(Rmpfr) mpfr(500^(-10), precBits = 255) - mpfr(1, precBits = 255) # 1 'mpfr' number of precision 255 bits # [1] -0.999999999999999999999999998975999999999999914663505297831951000646311908486498 ## caracteristica numerica da maquina .Machine