powered by
graphNEL
getLargestSubgraph(g)
g
set.seed(667) g <- randomGraph(paste("A",1:100, sep=""), 1:4, p=0.03, weights=FALSE) lcc <- getLargestSubgraph(g) lcc
Run the code above in your browser using DataLab