# \donttest{
if(assert_has_appl()){
model <- system.file("models", "example.pomdp", package = "sarsop")
policy <- tempfile(fileext = ".policyx")
pomdpsol(model, output = policy, timeout = 1)
# Other tools
evaluation <- pomdpeval(model, policy, stdout = FALSE)
graph <- polgraph(model, policy, stdout = FALSE)
simulations <- pomdpsim(model, policy, stdout = FALSE)
}
# }
Run the code above in your browser using DataLab