Nothing
getLargestSubgraph <- function(g){
if(class(g) != "graphNEL"){
stop("g needs to be of type graphNEL")
}
stopifnot(.validateGraph(g))
cc.g <- connectedComp(g)
cclens.g <- sapply(cc.g, length)
#print("Subgraph distribution:")
#print(table(cclens.g))
ord.g <- order(cclens.g, decreasing=T)
return(subGraph(cc.g[[ord.g[1]]], g))
}
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.