次のように関数にパッケージ mpfr を適用したい:
f1 =function(x) exp(x)
たとえばx = c(-1500, -2000, -6400, -7200)
> x = c(-1500, -2000, -6400, -7200)
> mpfr(f1(x), precBits=64)
4 'mpfr' numbers of precision 64 bits
[1] 0 0 0 0
関数 f1 の値が非常に小さい場合でも取得したいのですが、R で取得するにはどうすればよいですか?