Nothing
full.sc.epi.size <-
function (net, ...)
{
p <- strain.degree.dist(net)
q <- strain.degree.pmf(p)
u.T.list <- sc.excess.degree.fixed.point(q, ...)
scd <- sc.dist(net)
frac <- final.sc.epi.size(u.T.list, q, scd)
size <- network.size(net)
frac * 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.