Nothing
igraphtoGNAR <- function(ig){
stopifnot(is.igraph(ig))
if(is.weighted(ig)){
weimat <- get.adjacency(ig, attr="weight")
}else{
weimat <- get.adjacency(ig)
weimat <- as.matrix(weimat)
}
net <- matrixtoGNAR(weimat)
return(net)
}
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.