Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.