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