# \donttest{
library(easybgm)
library(bgms)
data <- na.omit(Wenchuan)
fit <- easybgm(data, type = "ordinal",
iter = 1000, # for demonstration only (> 5e4 recommended)
save = TRUE, edge_selection = TRUE)
plot_parameterHDI(fit)
# }
Run the code above in your browser using DataLab