# Directed network with a mix of mutual and asymmetric ties
adj <- matrix(c(
0, 1, 1, 0,
1, 0, 0, 1,
0, 0, 0, 1,
0, 0, 0, 0
), 4, 4, byrow = TRUE)
rownames(adj) <- colnames(adj) <- LETTERS[1:4]
cograph::dyad_census(adj)
Run the code above in your browser using DataLab