# NOT RUN {
nodes <- sg_make_nodes() 
edges <- sg_make_edges(nodes, 15)
sigmajs() %>% 
  sg_nodes(nodes, id, size) %>% 
  sg_edges(edges, id, source, target) %>% 
  sg_layout() %>% 
  sg_cluster() 
  
clustered <- sg_get_cluster(nodes, edges)
# }
Run the code above in your browser using DataLab