#Simple star from Foti et al. (2011), Figure 2
net <- matrix(c(0,2,2,2,2,
2,0,1,1,0,
2,1,0,0,1,
2,1,0,0,1,
2,0,1,1,0),5,5)
net <- igraph::graph_from_adjacency_matrix(net, mode = "undirected", weighted = TRUE)
plot(net, edge.width = igraph::E(net)$weight^2)
bb <- lans(net, alpha = 0.05, narrative = TRUE) #The LANS backbone
plot(bb)
Run the code above in your browser using DataLab