## load package required
library(flare)
#generate data
L = sugm.generator(d = 10, graph="hub")
out1 = sugm(L$data)
#model selection using stars
out1.select2 = sugm.select(out1, criterion = "stars", stars.thresh = 0.05)
plot(out1.select2)
#model selection using cross validation
#out1.select3 = sugm.select(out1, criterion = "cv")
#plot(out1.select3)
Run the code above in your browser using DataLab