tests/testthat/test_compileDecisionModel.R

In HydeNet: Hybrid Bayesian Networks Using R and JAGS

context("compileDecisionModel")

Net <- HydeNetwork(~ wells +
                     pe | wells +
                     d.dimer | pregnant*pe +
                     angio | pe +
                     treat | d.dimer*angio +
                     death | pe*treat,
                   data = PE) %>%
  setDecisionNodes(angio, treat)

test_that("compileDecisionModel",
{
  expect_output(compileDecisionModel(Net))
})