tests/testthat/test-print.HydePosterior.R

In HydeNet: Hybrid Bayesian Networks Using R and JAGS

context("print.HydeSim")

data(PE, package="HydeNet")
Net <- HydeNetwork(~ wells +
                     pe | wells +
                     d.dimer | pregnant*pe +
                     angio | pe +
                     treat | d.dimer*angio +
                     death | pe*treat,
                   data = PE)
compiledNet <- compileJagsModel(Net, n.chains=5, data = list(pe = "Yes"))

test_that("print.HydeSim with observed values",
{
  expect_output(print(HydeSim(compiledNet, 
                                    variable.names = c("wells", "death"),
                                    n.iter = 100, bind = FALSE)))
})