# NOT RUN {
# example to use aicAndBic function
EX1 <- pcorSimulator(nobs = 50, nclusters = 3, nnodesxcluster = c(40,30,30),
pattern = "powerLaw")
y <- EX1$y
Lambda.SEQ <- seq(.35, 0.70, length.out = 40)
out3 <- huge(y, method = "glasso", lambda = Lambda.SEQ, cov.output = TRUE)
AIC.COEF <- aicAndbicLambdaSelection(out3, y = y)
print(AIC.COEF)
# }
Run the code above in your browser using DataLab