## Not run:
# 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
# )
# ## End(Not run)
Run the code above in your browser using DataLab