# \donttest{
library(easybgm)
library(bgms)
data <- na.omit(Wenchuan)
fit <- easybgm(data, type = "continuous",
iter = 1000 # for demonstration only (> 5e4 recommended)
)
plot_edgeevidence(fit)
oldpar <- par(mfrow = c(1,1))
par(mfrow = c(1, 2))
plot_edgeevidence(fit, split = TRUE)
#' par(mfrow = c(1, 3))
plot_edgeevidence(fit, show = "included")
plot_edgeevidence(fit, show = "inconclusive")
plot_edgeevidence(fit, show = "excluded")
par(oldpar)
# }
Run the code above in your browser using DataLab