#generate data
L = huge.generator(graph="hub")
#subset indices
ind.group = c(1:30)
#estimate subgraph solution path using Meinshausen & Buhlmann graph estimation
out.huge = huge(L,ind.group = ind.group)
#model selection using extended BIC scores
out.select = huge.select(out.huge)
summary(out.select)
plot(out.select)
#model selection using stars
out.select = huge.select(out.huge, criterion = "stars", rep.num = 5)
summary(out.select)
plot(out.select)
#estimate subgraph solution path using GECA
out.approx = huge(L,ind.group = ind.group, approx = TRUE)
#model selection using stars
out.select = huge.select(out.approx, rep.num = 10)
summary(out.select)
plot(out.select)
Run the code above in your browser using DataLab