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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.