custom.Modules<-function(graph,algo)
{
lc <- getLinkCommunities(graph, directed = TRUE,hcmethod = algo,verbose = FALSE,dirweight = 0.8)
num_communities <- lc$numbers[3]
community_list <- vector(mode="list", length=num_communities)
for(i in 1:num_communities)
{
community_list[[i]] <- getNodesIn(lc, clusterids = c(i))
}
return(community_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.