Nothing
sim.reg<-function(n.nodes,n.edges)
{
z<-.C("Rregsim",
as.integer(n.nodes),
as.integer(n.edges),
mat=integer(n.nodes*n.nodes), PACKAGE="brainwaver")
mat<-z$mat
mat<-matrix(mat,n.nodes,n.nodes)
return(mat)
}
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.