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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.