Nothing
test_that("get_edge_multip_seq works", {
A <- matrix(c(0, 1, 2,
1, 2, 1,
2, 1, 2), nrow=3, ncol=3)
deg <- get_degree_seq(A, 'multigraph')
expect_equal(dim(get_edge_multip_seq(deg)),c(12,6))
})
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.