# NOT RUN {
# example to use pc function
EX1 <- pcorSimulator(nobs = 70, nclusters = 3, nnodesxcluster = c(40,30,20),
pattern = "powerLaw")
y <- EX1$y
Lambda.SEQ <- seq(.25,0.70,length.out = 40)
out3 <- huge(y, method = "mb", lambda = Lambda.SEQ)
PC.COEF <- pcLambdaSelection(out3)
print(PC.COEF)
# }
Run the code above in your browser using DataLab