# NOT RUN {
# example to use agnes 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")
print(AG.COEF)
# }
Run the code above in your browser using DataLab