Nothing
GNARtoigraph<- function(net=GNAR::fiveNet, stage=1, normalise=FALSE){
stopifnot(is.GNARnet(net))
weimat <- as.matrix(x=net, stage=stage, normalise=normalise)
#set as undirected igraph if adjacency matrix is symmetric
if(all(isSymmetric(weimat))){
tmp <- graph.adjacency(weimat, mode="undirected", weighted=TRUE)
}else{
tmp <- graph.adjacency(weimat, mode="directed", weighted=TRUE)
}
return(tmp)
}
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.