Nothing
sc.dist <-
function(net){
codes <- net %v% "infection_history"
codes <- codes + 1
codes[is.na(codes)] <- max(codes[!is.na(codes)])+1
x <- tabulate(codes )
x <- x/sum(x)
x
}
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.