Nothing
pset <- powerset(4)
# List method
ans0 <- matrix_to_network(pset)
ans1 <- lapply(pset, network::as.network)
expect_equal(as_adjmat(ans0), as_adjmat(ans1))
expect_equal(
as_adjmat(matrix_to_network(pset[[106]])),
as_adjmat(network::as.network(pset[[106]]))
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.