# NOT RUN {
## Generate graph and extract link communities.
g <- swiss[,3:4]
lc <- getLinkCommunities(g)
# }
# NOT RUN {
## Plot the modularity of the link communities.
plot(lc, type = "commsumm", summary = "mod")
# }
Run the code above in your browser using DataLab