set.seed(771)
net <- lapply(rbernoulli(c(4, 4)), network::network, directed = FALSE)
is_directed(net)
is_directed(net[[1]])
is_directed(net ~ edges)
if (FALSE) {
is_directed(net[[1]][1:4, 1:4], check_type = TRUE) # Error
}
is_directed(net[[1]][1:4, 1:4])
Run the code above in your browser using DataLab