Nothing
stubs.sampling <-
function(s,g)#g: permuting graph
{
k=degree(g)
v=c(1:length(k))
vs=rep(v,k)
S=NULL
for(i in 1:s)
{
S=rbind(S,sample(vs,length(vs)))
}
return(S)
}
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.