test_that("errors are given for improper input",{
# expect_error( as_digraph6(matrix(1, 1, 1)), regexp="handles networks of size greater 1") function handles this now
expect_error( as_digraph6(1), regexp="handle class")
})
test_that("works for simple matrices", {
m <- matrix(c(0,1,0,0), 2, 2) # one edge size 2
expect_silent(as_digraph6(m))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.