#generate data
L = huge.generator(d = 200, graph="hub")
out.MBGEL = huge(L)
out.GECT = huge(L, method = "GECT")
out.GLASSO = huge(L, method = "GLASSO")
#model selection using RIC
out.select = huge.select(out.MBGEL)
summary(out.select)
plot(out.select)
#model selection using stars
out.select = huge.select(out.GECT, criterion = "stars", stars.thresh = 0.05)
summary(out.select)
plot(out.select)
#model selection using EBIC
out.select = huge.select(out.GLASSO,criterion = "EBIC")
summary(out.select)
plot(out.select)
Run the code above in your browser using DataLab