为R中的函数应用程序包mpfr

我想为函数应用程序包mpfr，如下所示：

     f1  =function(x) exp(x)

例如，如果

x=c（-1500，-2000，-6400，-7200）

---

我想得到函数f1的值，即使它很小，我怎么能在R中得到它呢？

64位不是很多。但主要是，我们中的许多人犯了一个错误：

f1（x）

的值已经为零，因为它是在转换为bignum之前计算出来的

试着这样做：

> exp(mpfr(c(-1000,-5000),200))
2 'mpfr' numbers of precision  200   bits 
[1]  5.0759588975494567652918094795743369193055992828928373618323948e-435
[2] 3.3696941483089175144500323238132201679550979027292655581078801e-2172

> exp(mpfr(c(-1000,-5000),200))
2 'mpfr' numbers of precision  200   bits 
[1]  5.0759588975494567652918094795743369193055992828928373618323948e-435
[2] 3.3696941483089175144500323238132201679550979027292655581078801e-2172