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

Question

考虑以下向量:

> 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

Answer 1

其实我也遇到过类似的问题，因为这是我第一次使用这个包。无论如何，我找到了一个简单的解决方案，虽然不是最优雅的，但我可以添加...:

   # 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))