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