R/cumsum.jae.r

  



  cumsum.jae = function( x) {
    nv = length(x)
    for (i in 2:nv)  x[i] = sum(x[i-1], x[i], na.rm=T)
    x[x==0] = NA
    return(x)
  }
 
jae0/ecmgis documentation built on May 28, 2019, 9:57 p.m.