Sto tentando di eseguire un codice ricorsivo abbastanza profondo in R e continua a darmi questo errore:
Errore: l'utilizzo dello stack C è troppo vicino al limite
Il mio output CStack_info()
è:
Cstack_info()
size current direction eval_depth
67108864 8120 1 2
Ho molta memoria sulla mia macchina, sto solo cercando di capire come aumentare il CStack per R.
EDIT: Qualcuno ha chiesto un esempio riproducibile. Ecco un codice di esempio di base che causa il problema. Eseguendo f (1,1) alcune volte otterrai l'errore. Nota che ho già impostato --max-ppsize = 500000 e opzioni (espressioni = 500000) quindi se non li imposti potresti invece ottenere un errore su una di queste due cose. Come puoi vedere, la ricorsione può andare abbastanza in profondità qui e non ho idea di come farlo funzionare in modo coerente. Grazie.
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)
}
options(expressions = somethinglarge)