M <- sparse3Darray(i=1:3, j=c(3,1,2), k=4:2,
x=round(runif(3), 2), dims=rep(4, 3))
marginSumsSparse(M, 1:2)
marginSumsSparse(M, 1)
marginSumsSparse(M, integer(0)) # equivalent to sum(M)
Run the code above in your browser using DataLab