# \donttest{
library(easybgm)
library(bgms)
data <- na.omit(ADHD)
group1 <- data[1:10, 1:3]
group2 <- data[11:20, 1:3]
# Fitting the Wenchuan PTSD data
fit <- easybgm_compare(list(group1, group2),
type = "binary", save = TRUE,
iter = 50 # for demonstration only (> 5e4 recommended)
)
summary(fit)
# For multigroup estimation
fit_multi <- easybgm_compare(data[1:200, 1:5],
group_indicator = rep(c(1, 2, 3, 4), each = 50),
type = "binary", save = TRUE,
iter = 100 # for demonstration only (> 5e4 recommended)
)
summary(fit_multi)
# }
Run the code above in your browser using DataLab