R/csum.R

Defines functions csum

csum <-
function(x) { n = length(dim(x)) ; 
                      if (n  > 1) apply(x, seq(n)[-1], sum) else sum(x) }
mcrucifix/gp documentation built on July 29, 2023, 8:58 p.m.