if (FALSE) {
s1 <- define_state(cost = 1, util = 1)
s2 <- define_state(cost = 3, util = .4)
states_mod <- define_state_list(
healthy = s1,
sick = s2
)
states_mod
s1_bis <- define_state(cost = 0, util = 1)
s3 <- define_state(cost = 10, util = .1)
modify(
states_mod,
healthy = s1_bis,
sicker = s3
)
}
Run the code above in your browser using DataLab