# NOT RUN {
# example to use of harmonic mean function
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 <- harmMeanDist(PATH)
# }
Run the code above in your browser using DataLab