A <- matrix(0,4,4)
Am <- as.adjMatrix(A)
testthat::test_that("as.adjMatrix() works as expected",
expect_true("adjMatrix" %in% class(Am))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.