Tracks first left/right singular vector of A_t or B_t
Usage
role_trajectory(fit, mat = c("A", "B"), comp = 1)Examples
# \donttest{
sim <- simulate_dynamic_dbn(n = 6, time = 10, seed = 1)
fit <- dbn(sim$Y, model = "dynamic", nscan = 200, burn = 100, verbose = FALSE)
role_trajectory(fit, mat = "A", comp = 1)
# }