2017-02-27 87 views
1

我有一個變量,它包含mpfr對象。將mpfr對象寫入R中的文件

> currentPrice <- mpfr(as.character(reduceData[1, 2])) 
> currentPrice 
1 'mpfr' number of precision 97 bits 
[1] 14.22857142857142857142857143301 

我怎麼能寫這個值的文本文件,無需切割,並tranforming短的版本是這樣的:

> as.numeric(currentPrice) 
[1] 14.22857 

感謝您的關注。

命令dput輸出這樣的:

> dput(currentPrice) 
new("mpfr" 
    , .Data = list(<S4 object of class structure("mpfr1", package = "Rmpfr")>) 
) 
+0

'匯(FILENAME.TXT);''貓(as.numeric(currentPrice));''匯();' – Sathish

+0

@Sathish沒有,夥計。您的解決方案寫入文件的短值(** 14.22857 **),但我需要長版本(** 14.22857142857142857142857143301 **) –

+0

@Sathish類型的變量 - 列表,類 - mpfr –

回答

1

使用打印方法稱爲print.mpfrRmpfr

library('Rmpfr') 
currentPrice <- mpfr('14.22857142857142857142857143301', precBits = 260) 

sink('filename.txt') 
print(currentPrice, digits = 260) 
sink(); 

輸出在您的文件。

# 1 'mpfr' number of precision 260 bits 
# [1] 14.2285714285714285714285714330100000000000000000000000000000000000000000000000037941082567172255283680561956483693602320305788044194384954889318036909905910031240694550294963195196244918820116425935087779567863032980333526378302622106275521218776702880859375 
+0

如何在沒有附加信息的情況下僅打印價值? –

+0

我不知道如何取消標題。可能是您可以通過刪除標題來發布該文件。 – Sathish