# \donttest{
data(YX_bin_list)
fit_pll <- lame_parallel(YX_bin_list$Y, Xdyad = YX_bin_list$X,
family = "binary", n_chains = 2, cores = 1,
nscan = 50, burn = 10, odens = 5,
dynamic_beta = "dyad", verbose = FALSE)
dim(fit_pll$BETA) # [iter * n_chains, p, T]
fit_pll$chain_indicator # length iter * n_chains
if (requireNamespace("posterior", quietly = TRUE)) {
posterior::summarise_draws(posterior::as_draws(fit_pll))
}
# }
Run the code above in your browser using DataLab