我试图在 R 中运行一些相当深的递归代码,它一直给我这个错误:
错误:C 堆栈使用量太接近限制
我的输出CStack_info()
是:
Cstack_info()
size current direction eval_depth
67108864 8120 1 2
我的机器上有足够的内存,我只是想弄清楚如何增加 R 的 CStack。
编辑:有人要求提供可重复的示例。这是导致问题的一些基本示例代码。运行 f(1,1) 几次你会得到错误。请注意,我已经设置了 --max-ppsize = 500000 和 options(expressions=500000) 所以如果你不设置这些,你可能会得到关于这两件事之一的错误。正如你所看到的,递归在这里可能会很深,我不知道如何让它始终如一地工作。谢谢。
f <- function(root=1,lambda=1) {
x <- c(0,1);
prob <- c(1/(lambda+1),lambda/(lambda+1));
repeat {
if(root == 0) {
break;
}
else {
child <- sample(x,2,replace=TRUE,prob);
if(child[1] == 0 && child[2] == 0) {
break;
}
if(child[1] == 1) {
child[1] <- f(root=child[1],lambda);
}
if(child[2] == 1 && child[1] == 0) {
child[2] <- f(root=child[2],lambda);
}
}
if(child[1] == 0 && child[2] == 0) {
break;
}
if(child[1] == 1 || child[2] == 1) {
root <- sample(x,1,replace=TRUE,prob);
}
}
return(root)
}