library(igraph)
library(pipenostics)
g <- graph_from_data_frame(m325nxdata[, c("sender", "acceptor")])
x <- V(g)
checkmate::assert_true(is_dag(g))
n <- vapply(
x, function(id) (length(subcomponent(g, id, "out")) - 1)/gsize(g), double(1)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.