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