Nothing
rdag <- function (p, nedges)
{
stopifnot(nedges >= 0, nedges <= choose(p,2), as.integer(nedges) == nedges)
M <- matrix(0,p,p)
M[upper.tri(M)][sample(choose(p,2),nedges)] <- 1
graph.adjacency(adjmatrix = M)
}
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.