source("./grid_world4x4.R")
plot_fig4.1()
compute_V_star(return_best_actions = T)$best_actions
## [,1] [,2] [,3] [,4]
## [1,] "T" "L" "L" "D/L"
## [2,] "U" "U/L" "U/D/L/R" "D"
## [3,] "U" "U/D/L/R" "D/R" "D"
## [4,] "U/R" "R" "R" "T"
source("./jacks.R")
plot_fig4.2()
source("./gambler.R")
plot_fig4.3.1()
plot_fig4.3.2()