tests/testthat/test_input_checks_node.r

In simDAG: Simulate Data from a DAG and Associated Node Information

test_that("name root node", {
  expect_error(node(c(1, 2), type="rbernoulli"))
})

test_that("name root node", {
  expect_error(node("A", type="something"))
})

test_that("name child node", {
  expect_error(node(c(1, 2), type="binomial", parents="C",
                    betas=1, intercept=2.1))
})

test_that("type child node", {
  expect_error(node("A", type="rbernoulli", parents="C",
                    betas=1))
})

test_that("parents child node", {
  expect_error(node("A", type="binomial", parents=list("A", "B"), betas=1))
})