```r g0 <- igraph::make_empty_graph(n=0, directed=TRUE) net0 <- intergraph::asNetwork(g0) network::network.size(net0) # 2 ```