# NOT RUN {
EX2 <- pcorSimulatorJoint(nobs = 200, nclusters = 3, nnodesxcluster = c(60,40,50),
pattern = "pow", diffType = "cluster", dataDepend = "diag",
pdiff=0.5)
#### eq corr by rows
## not run
#eqCorEX2 <- eqCorTestByRows(EX2$D1, EX2$D2, testStatistic = c("AS", "max"),
# nite = 200, paired = TRUE, exact = TRUE,
# subMatComp = FALSE, iniP = 1, finP = 40,
# conf.level = 0.95)
#plot(eqCorEX2)
# }
Run the code above in your browser using DataLab