Compute summary statistics for Theta parameters
Usage
theta_summary(
fit,
fun = mean,
draws = NULL,
i = NULL,
j = NULL,
rel = NULL,
time = NULL,
chunk = 20
)Examples
# \donttest{
sim <- simulate_dynamic_dbn(n = 6, time = 5, seed = 1)
fit <- dbn(sim$Y, model = "dynamic", nscan = 200, burn = 100, verbose = FALSE)
ts <- theta_summary(fit)
# }