tests/testthat/test-plotDAG.R

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)
})
itsrainingdata/sparsebn documentation built on Sept. 8, 2020, 3:15 a.m.