if (FALSE) {
set.seed(5)
# Generating multivariate normal data from a 'scale-free' graph
data.sim = bdgraph.sim(n = 200, p = 15, graph = "scale-free", vis = TRUE)
# Running BDMCMC algorithm
sample.bdmcmc = bdgraph(data = data.sim, algorithm = "bdmcmc", iter = 10000)
BDgraph::auc(pred = sample.bdmcmc, actual = data.sim, calibrate = TRUE)
}
Run the code above in your browser using DataLab