R/rsum.R

Defines functions rsum

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