Nothing
context("get.adjacency.matrix")
test_that("get.adjacency.matrix works on empty graphs", {
adj <- generate_empty_adjacency_matrix()
sbm <- generate_empty_SparseBlockMatrixR()
expect_equivalent(as.matrix(get.adjacency.matrix(sbm)), adj)
})
test_that("get.adjacency.matrix works on nontrivial graphs", {
adj <- generate_fixed_adjacency_matrix()
sbm <- generate_fixed_SparseBlockMatrixR()
expect_equivalent(as.matrix(get.adjacency.matrix(sbm)), adj)
})
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.