param <- define_parameters(
a = markov_cycle + 1 * 2
)
mat <- define_matrix(
1-1/a, 1/a,
.1, .9
)
sta <- define_state_list(
A = define_state(cost = 10),
B = define_state(cost = 2)
)
mod <- define_model(
parameters = param,
transition_matrix = mat,
states = sta
)
eval_model(
mod,
init = c(10, 5),
cycles = 5
)Run the code above in your browser using DataLab