Nothing
make_amat <- function(n, edges = list()) {
m <- matrix(0, n, n)
for (e in edges) {
m[e[1], e[2]] <- 1
}
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.