tests/testthat/test_edge-change.R

A <- matrix(0,4,4)

Am <- as.adjMatrix(A)

testthat::test_that("as.adjMatrix() works as expected",
                    expect_true("adjMatrix" %in% class(Am))
)
rje42/MixedGraphs documentation built on March 20, 2024, 8:09 a.m.