tests/testthat/test-plotDAG.R

In sparsebn: Learning Sparse Bayesian Networks from High-Dimensional Data

context("plotDAG")

el <- generate_fixed_edgeList()
sbp <- generate_fixed_sparsebnPath()
sbf <- generate_fixed_sparsebnFit()

test_that("plotDAG runs without errors", {
    expect_error(plotDAG(el), NA)
    expect_error(plotDAG(sbf), NA)
    expect_error(plotDAG(sbp), NA)
})