# NOT RUN {
# example to use agnes 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 = "mb", lambda = Lambda.SEQ)
PC.COEF <- lambdaSelection(out3, criterion = "PC")
#AG.COEF <- lambdaSelection(out3, criterion = "AGNES")
# }
Run the code above in your browser using DataLab