# NOT RUN {
EX1 <- pcorSimulator(nobs = 50, nclusters=2, nnodesxcluster=c(40,30),
pattern="powerLaw")
y <- EX1$y
out3 <- huge(y, method = "mb", lambda = 0.4)
PATH <- out3$path[[1]]
hm <- estradaIndex(PATH)
# }
Run the code above in your browser using DataLab