tests/testthat/test_args_from_formula.r

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

test_that("general test case", {
  formula <- "~ -10 + Alpha*2 + Beta*-0.3 + Alpha:Beta*0.11"
  args_orig <- list(formula=formula)
  args <- args_from_formula(args_orig, formula, node_type="gaussian")
  expected <- list(parents=c("Alpha", "Beta", "Alpha:Beta"),
                   betas=c(2, -0.3, 0.11),
                   intercept=-10)
  expect_equal(args, expected)
})