Compute posterior probabilities of regime assignments
Examples
# \donttest{
sim <- simulate_hmm_dbn(n = 6, time = 10, R = 2, seed = 1)
fit <- dbn(sim$Y, model = "hmm", R = 2, nscan = 200, burn = 100, verbose = FALSE)
rp <- regime_probs(fit)
# }
Compute posterior probabilities of regime assignments
# \donttest{
sim <- simulate_hmm_dbn(n = 6, time = 10, R = 2, seed = 1)
fit <- dbn(sim$Y, model = "hmm", R = 2, nscan = 200, burn = 100, verbose = FALSE)
rp <- regime_probs(fit)
# }