# NOT RUN {
data("Tiger")
sol <- solve_POMDP(model = Tiger)
sol
plot_value_function(sol, ylim = c(0,20))
## finite-horizon
sol <- solve_POMDP(model = Tiger, horizon = 3, discount = 1,
method = "enum")
sol
plot_value_function(sol, epoch = 1, ylim = c(-5, 25))
plot_value_function(sol, epoch = 2, ylim = c(-5, 25))
plot_value_function(sol, epoch = 3, ylim = c(-5, 25))
# }
Run the code above in your browser using DataLab