# NOT RUN {
# example to use amse 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)
AG.COEF <- agnesLambdaSelection(out3, distF = "shortPath", way = "direct")
AG.LAMB <- which(AG.COEF$opt.lambda == Lambda.SEQ)
## not run
#AAG.COEF <- amseLambdaSelection(out3, out3$path[[AG.LAMB]], y = y,
# distF = "shortPath", from = AG.LAMB)
#print(AAG.COEF)
# }
Run the code above in your browser using DataLab