# generating the data from a random graph
data.sim <- bdgraph.sim(n = 100, p = 8, vis = TRUE)
output <- bdgraph(data.sim, mean = 0, iter = 2000, save.all = TRUE)
traceplot(output)
traceplot(output, acf = TRUE, pacf = TRUE)
Run the code above in your browser using DataLab