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