data("c_net")
set.seed(12)
co_net_p1 <- c_net_filter(co_net, name %in% sample(V(co_net)$name, 300))
co_net_p2 <- c_net_filter(co_net, name %in% sample(V(co_net)$name, 300))
c_net_compare(co_net_p1, co_net_p2) -> c_net_comp
plot(c_net_comp)
Run the code above in your browser using DataLab