require(igraph)##Create a random (directed) networkgs<-erdos.renyi.game(50,0.2,directed =TRUE)##Add edge weights to the networkE(gs)$weight<-runif(ecount(gs),0,1)##Extract backbone at 0.05 significance levelbackbone<-get.backbone(gs,0.1)
References
Serrano, M. Á., Boguñá, M. and Vespignani, A. (2009) Extracting the multiscale backbone of complex weighted networks, Proceedings of the National Academy of Sciences, 106(16), pp. 6483–6488.