# \donttest{
data(YX_bin_list)
fit_multi <- lame_multi(
Y_list = list(YX_bin_list$Y, YX_bin_list$Y),
Xdyad_list = list(YX_bin_list$X, YX_bin_list$X),
family = "binary", R = 0,
nscan = 100, burn = 25, odens = 5, verbose = FALSE)
dim(fit_multi$beta_shared)
# }
Run the code above in your browser using DataLab