# NOT RUN {
EX1 <- pcorSimulator(nobs = 50, nclusters= 3, nnodesxcluster = c(100,30,50),
pattern = "powerLaw", plus = 0)
corsEX1 <- cor2mean(t(EX1$y))
corsadjEX1 <- cor2mean.adj(t(EX1$y))
# }
Run the code above in your browser using DataLab