#generate data
L = huge.generator(graph = "hub")
ind.group = c(1:30)
ind.mat = huge.scr(L$data, ind.group)$ind.mat
lambda = exp(seq(log(0.8),log(0.1),length=12))
#subgraph solution path estimation with the preselected neighborhood and specified lambda sequence
sub.path = huge.subgraph(L$data, ind.group = ind.group, ind.mat = ind.mat, lambda = lambda)
summary(sub.path)
plot(sub.path)
#subgraph solution path estimation with specified lambda.min.ratio and nlambda
sub.path = huge.subgraph(L$data, ind.group = ind.group, ind.mat = ind.mat,
nlambda = 8, lambda.min.ratio = 0.01)
summary(sub.path)
plot(sub.path)
#graph solution path estimation using elastic net
sub.path = huge.subgraph(L$data, ind.group = ind.group, alpha = 0.7)
summary(sub.path)
plot(sub.path)
Run the code above in your browser using DataLab