Nothing
plot.RWBP <-
function(x,...){
V(x$igraph)$color<-ifelse(V(x$igraph)$name<0, 'blue', 'red')
plot(x$igraph, edge.label=round(E(x$igraph)$weight, 3))
#plot(x$igraph)
}
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.