# NOT RUN {
graph <- matrix(
cbind(
c(0.0, 1.0, 0.0, 0.0),
c(0.0, 0.0, 1.0, 0.0),
c(0.0, 0.0, 0.0, 1.0),
c(0.0, 0.0, 0.0, 0.0)
),
nrow = 4
) %>%
igraph::graph.adjacency(mode = "directed")
effective_information(graph)
# }
Run the code above in your browser using DataLab