tests/testthat/test-decision_tree_ACE.R

context("decision_tree_ACE")

test_that("boundary scenario values", {
  # to debug
  # xx <- decision_tree_ACE(parameters = scenario_parameters[[1]],
  #                         N.mc = 100,
  #                         cost_dectree = "osNode_cost.Rds",
  #                         health_dectree = "osNode_cost.Rds")
  #
  # xx <- decision_tree_ACE(parameters = data.frame("val_type" = NA),
  #                         N.mc = 100,
  #                         cost_dectree = "osNode_cost.Rds",
  #                         health_dectree = "osNode_cost.Rds")
})
n8thangreen/LTBIhospitalScreenACE documentation built on May 7, 2019, 3:15 p.m.