disc_phase_type <- matrix(c(0.4, 0, 0.2,
0.5, 0.3, 0.2,
0, 0.7, 0.2), ncol = 3)
R <- matrix(c(0, 1, 1,
2, 1, 5,
0, 1, 10,
1, 2, 3), nrow = 3)
Y <- MDPH(disc_phase_type, reward_mat = R)
dMDPH(3:4, Y)
pMDPH(1.45, Y)
qMDPH(0.5, Y)
set.seed(0)
rMDPH(6, Y)
rFullMDPH(Y)
Run the code above in your browser using DataLab