data("RussianTiger")
RussianTiger
# states, actions, and observations
RussianTiger$states
RussianTiger$actions
RussianTiger$observations
# reward (-Inf indicates unavailable actions)
RussianTiger$reward
sapply(RussianTiger$states, FUN = function(s) actions(RussianTiger, s))
plot_transition_graph(RussianTiger, vertex.size = 30, edge.arrow.size = .3, margin = .5)
# absorbing states
absorbing_states(RussianTiger)
# solve the problem.
sol <- solve_POMDP(RussianTiger)
policy(sol)
plot_policy_graph(sol)
Run the code above in your browser using DataLab