if (FALSE) {
# Generating multivariate normal data from a 'circle' graph
data.sim <- bdgraph.sim(n = 50, p = 6, graph = "circle", vis = TRUE)
# Running sampling algorithm
bdgraph.obj <- bdgraph(data = data.sim)
graph_1 <- graph.sim(p = 6, vis = TRUE)
graph_2 <- graph.sim(p = 6, vis = TRUE)
bf(num = graph_1, den = graph_2, bdgraph.obj = bdgraph.obj)
}
Run the code above in your browser using DataLab