Nothing
vert.status.plot <-
function (net){
plot(net, displaylabels=TRUE, vertex.col=match(net %v% "status", levels(as.factor((net %v% "status"))) ))
}
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.