tests/testthat/test-causnet.R

In USCbiostats/causnet: What the Package Does (One Line, Title Case)

set.seed(1234)
test_that("Input validation for causnet", {
  new_data <- simdat(n_var = 5)

  # alpha
  expect_error(causnet(data = new_data, 0.1), NA)
  expect_error(causnet(data = new_data, "0.5"), "`alpha` must")
  expect_error(causnet(data = new_data, c(0.2, 0.5)), "`alpha` must")
  expect_error(causnet(data = new_data, -0.01), "`alpha` must")
  expect_error(causnet(data = new_data, 1.01), "`alpha` must")
})

test_that("custom scoring function argument works", {
  mydata <- simdat(n_var = 5)

  out <- causnet(mydata, score_fun = function(x, y, mydat) 0)

  expect_equal(nrow(out$network), 0)
  expect_equal(length(out$n_best_parents), 0)
})