R/stubs.sampling.R

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)
}

Try the SNscan package in your browser

Any scripts or data that you put into this service are public.

SNscan documentation built on May 2, 2019, 8:26 a.m.