model <- POMDP(
states = 4,
actions = 2,
observations = 2,
transition_prob = list("identity","identity"),
observation_prob = list("uniform","uniform"),
reward = rbind(R_(value = 1))
)
projection(NULL, model = model)
projection(1:2, model = model)
projection(c("s2", "s3"), model = model)
projection(c(1,4), model = model)
projection(c(s2 = .4, s3 = .2), model = model)
projection(c(s1 = .1, s2 = NA, s3 = NA, s4 = .3), model = model)
Run the code above in your browser using DataLab