17

DECIMAL我从 MySQL 表中读取以格式存储的数据。我想对 R 中的这些数字进行计算。

我曾经使用 将它们转换为数字表示as.numeric()，但文档说：

numeric 与 double（和 real）相同。

但是 R 中还有数据类型 Decimal 吗？（没有舍入错误的数据类型，...）

这是一个关于舍入错误问题的简单示例：

numbersStrings = c("0.1", "0.9")
numbersNumeric = as.numeric(numbersStrings)
numbersMirror  = c(numbersNumeric, 1-numbersNumeric)

str(numbersMirror)

numbersMirror
unique(numbersMirror)  # has two times 0.1 ...

sprintf("%.25f", numbersMirror)
sprintf("%.25f", unique(numbersMirror))  # ... because there was a rounding error
4

2 回答 2

5

您可以创建自己的：

d <- structure( list(i=589L,exp=2L), class="decimal" )
print.decimal <- function( x, ...) print( x$i * 10^(-x$exp) )
> d
[1] 5.89

实际上，一些大数字包也可能适用于此，因为它们使用类似的表示......

于 2013-06-06T12:19:09.267 回答
3

与 Ari 答案类似的方法，但使用包中的integer64类bit64。使用 big int 作为十进制的底层数据类型是各种原生不支持十进制类型的应用程序的常见做法。 

library(bit64)

as.decimal = function(x, p=2L) structure(as.integer64(x*10^p), class="decimal", precision=p)
print.decimal = function(x) print(as.double(x))
as.integer64.decimal = function(x) structure(x, class="integer64", precision=NULL) # this should not be exported
as.double.decimal = function(x) as.integer64(x)/(10^attr(x, "precision"))
is.decimal = function(x) inherits(x, "decimal")
"==.decimal" = function(e1, e2) `==`(as.integer64(e1), as.integer64(e2))
"+.decimal" = function(e1, e2) `+`(as.integer64(e1), as.integer64(e2))

d = as.decimal(12.69)
is.decimal(d)
#[1] TRUE
print(d)
#[1] 12.69
as.double(d)
#[1] 12.69
d + as.decimal(0.9)
#[1] 13.59
0.1 + 0.2 == 0.3
#[1] FALSE
as.decimal(0.1) + as.decimal(0.2) == as.decimal(0.3)
#[1] TRUE
于 2016-09-01T09:38:59.397 回答