Nothing
`get.sim.size.at.tau` <-
function(net, tau){
ts <- net %n% "time_series"
if(length(ts)==1)
stop("Network does not have full time series")
deltas <- abs(ts - tau)
index <- which(deltas==min(deltas))
closest.time <- ts[index]
size <- (net %n% "case_series")[index]
cbind(closest.time, size)
}
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.