Nothing
cabe <-
function(dx){
nf=length(dx)
nr=sapply(dx,length)
r1=cumprod(nr)
repes=r1[length(r1)]/r1
cabf=mapply(dx,repes,r1[length(r1)],FUN=function(x,y,z) rep(rep(x,each=y),z/(length(x)*y)))
return(cabf)
}
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.