tests/testthat/test-setUtilityNodes.R

In nutterb/HydeNet: Hybrid Bayesian Networks Using R and JAGS

context("setUtilityNodes")

test_that("setUtiltyNodes",
{
  expect_silent(
    Net <- HydeNetwork(~ wells +
                       pe | wells +
                       d.dimer | pregnant*pe +
                       angio | pe +
                       treat | d.dimer*angio +
                       death | pe*treat,
                     data = PE) %>%
    setUtilityNodes(treat, angio))
})