Displaying 1 result from an estimated 1 matches for "mmm4".
Did you mean:
mmm
2016 May 10
1
recursion problem using do.call(rbind, list(..,<S4>,..))
...t;, signature(x="mmatrix", y="mmatrix"),
function(x,y) as(base::rbind(unclass(x), unclass(y)), "mmatrix"))
(m5 <- MM(diag(5)))
m45 <- MM(matrix(1:20, 4,5))
rbind(m5, m45) # fine
## fine with 400 :
mL.4c <- replicate(400, m45, simplify=FALSE)
mmm4 <- do.call(rbind, mL.4c)
stopifnot(is(mmm4, "mmatrix"), dim(mmm4) == c(1600L, 5L))
## not ok with 410 :
mL.410 <- replicate(410, m45, simplify=FALSE)
mmm4 <- do.call(rbind, mL.410)
## Error in getExportedValue(pkg, name) (from #2) : node stack overflow
and the "no...