library(igraph)
library(purrr)
library(digest)
library(StartNetwork)
# Barabasi Albert model
x <- replicate(1000, sample_pa(8, directed = FALSE), simplify = FALSE)
plot(x[[1]])
y <- sapply(x, purrr::compose(digest, igraph::as_adj))
entropy_calc(y)
## [1] 8.247243
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.