r - 从mpfr生成的列表中获取值(value)

考虑以下向量:

> v1
[1] 0.000000e+00 0.000000e+00 1.110223e-16 4.440892e-15 3.266195e-08 2.531242e-07
1.041204e-05 1.172329e-05 1.672447e-05 1.803203e-05

我已经将mpfr从功能(来自Rmpfr包)应用于v1:

> v2<-sapply(v1,function(x){mpfr(x,5)})

v2显然是一个列表，但我无法获得实际值。我尝试使用unlist v2 [[]]转换为字符v2 [[]]或向量。

> v2

[[1]]
'mpfr1' 0

[[2]]
'mpfr1' 0

[[3]]
 'mpfr1' 1.11e-16

最佳答案

实际上，我遇到了类似的问题，因为这是我第一次使用此程序包。无论如何，我找到了一个简单的解决方案，尽管它不是最优雅的，但我可以补充一下...:

   # Compute 1/7 with 1000 bit precision and store the value in a character object
   x <- mpfr(1,1000)/7
   x.output <- capture.output(x)[2]
   result <- substr(x.output,5,nchar(x.output))

关于r - 从mpfr生成的列表中获取值(value)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11498371/