R/get.cumulative.R

Defines functions get.cumulative

Documented in get.cumulative

get.cumulative<-function(triangle)
{
  Xtriangle<-as.matrix(triangle)  
  m<-nrow(Xtriangle)	
  Xtriangle.0<-Xtriangle
  Xtriangle.0[is.na(Xtriangle)]<-0
  cumX<-t(apply(Xtriangle.0,1,cumsum))
  cumX[is.na(Xtriangle)]<-NA
  return(cumX)
}

Try the DCL package in your browser

Any scripts or data that you put into this service are public.

DCL documentation built on May 5, 2022, 5:06 p.m.