Nothing
mean.dist.tau.df <-
function(net.list, tau){
l <- lapply(net.list, get.sim.mean.dist.at.tau, tau)
data.frame(times=rapply(l, function(x) x[1]),
mdists=rapply(l, function(x) x[2]))
}
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.