if (FALSE) {
library(ssgraph)
# Generating multivariate normal data from a 'random' graph
data.sim <- bdgraph.sim(n = 100, p = 8, size = 10, vis = TRUE)
# Running algorithm based on GGMs
ssgraph.obj <- ssgraph(data = data.sim, iter = 5000, save = TRUE)
summary(ssgraph.obj)
# To compare the result with true graph
compare(pred = ssgraph.obj, actual = data.sim,
main = c("Target", "ssgraph"), vis = TRUE)
plotroc(pred = sgraph.obj, actual = data.sim)
}
Run the code above in your browser using DataLab