# require package 'network' as 'as.network' generic is defined there
if(require(network, quietly=TRUE))
{
### demonstrating method for data frames
l <- asDF(exNetwork)
g <- as.network( l$edges, vertices=l$vertexes)
stopifnot(all.equal(g, exNetwork))
### method for igraph objects
ig <- as.network(exIgraph)
identical( as.numeric(as.matrix(g, "adjacency")),
as.numeric(as.matrix(ig, "adjacency")))
}Run the code above in your browser using DataLab