mod1 <-
define_model(
transition_matrix = define_matrix(
.5, .5,
.1, .9
),
define_state(
cost = 543 + age * 5,
ly = 1
),
define_state(
cost = 432 + age,
ly = 1
)
)
mod2 <-
define_model(
transition_matrix = define_matrix(
.5, .5,
.1, .9
),
define_state(
cost = 789 * age / 10,
ly = 1
),
define_state(
cost = 456 * age / 10,
ly = 1
)
)
res2 <- run_models(
mod1, mod2,
parameters = define_parameters(
age_init = 60,
age = age_init + markov_cycle
),
init = 1:0,
cycles = 10,
cost = cost,
effect = ly
)
# generating table with new parameter sets
new_tab <- data.frame(
age_init = 40:80
)
# with run_model result
ndt1 <- run_newdata(res2, newdata = new_tab)
Run the code above in your browser using DataLab