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