提问人:Hack-R 提问时间:12/19/2015 最后编辑:smciHack-R 更新时间:2/1/2017 访问量:133
带有类.ind()的多级因子的整数溢出?
Integer overflow from many-leveled factor with class.ind()?
问:
我正在尝试将一个“大”因子转换为 R 中的一组指标(即虚拟、二进制、标志)变量,如下所示:
FLN <- data.frame(nnet::class.ind(FinelineNumber))
其中是Kaggle.com当前沃尔玛竞赛的5,000级因子(如果您想重现此错误,则数据是公开的)。FinelineNumber
我不断收到这个令人担忧的警告:
In n * (unclass(cl) - 1L) : NAs produced by integer overflow
系统可用的内存基本上是无限的。我不确定问题出在哪里。
答:
6赞
Ben Bolker
12/19/2015
#1
其源代码为:nnet::class.ind
function (cl) {
n <- length(cl)
cl <- as.factor(cl)
x <- matrix(0, n, length(levels(cl)))
x[(1L:n) + n * (unclass(cl) - 1L)] <- 1
dimnames(x) <- list(names(cl), levels(cl))
x
}
.Machine$integer.max
是2147483647。如果大于此值,则应产生错误。求解:n*(nlevels - 1L)
n
imax <- .Machine$integer.max
nlevels <- 5000
imax/(nlevels-1L)
## [1] 429582.6
如果有 429583 行或更多行(对于数据挖掘上下文来说不是特别大),则会遇到此问题。如上所述,如果你的建模框架可以处理稀疏矩阵,那么使用 (或 ) 会做得更好。或者,您必须重写以避免此瓶颈(即按行和列而不是按绝对位置进行索引)[@joran上面的评论是 R 通过双精度值索引大型向量,因此您也许可以摆脱将该行破解为Matrix::sparse.model.matrix
Matrix::fac2sparse
class.ind
x[(1:n) + n * (unclass(cl) - 1)] <- 1
可能在这里或那里抛出一个明确的信号,以迫使胁迫加倍......]as.numeric()
即使你能够完成这一步,你最终也会得到一个 5000*650000 的矩阵——看起来这将是 12Gb。
print(650*object.size(matrix(1L,5000,1000)),units="Gb")
我想如果你有 100Gb 的免费数据,那可能没问题......
评论
2赞
Hack-R
12/19/2015
非常感谢;好答案。我以为@user20650指的是其中的功能,所以我尝试了它,它也运行得很好。fac2sparse
Matrix
sparse.model.matrix
评论
FLN <- data.frame(class.ind(paste(1:5000, "a")))
z <- factor(rep(1:5000,n)); FLN <- data.frame(nnet::class.ind(z))
n
5000L * 650000L