# NOT RUN {
#### data
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
#test1 <- eqCorTestByRows(EX2$D1, EX2$D2, testStatistic = c("AS", "max"),
# nite = 200, paired = TRUE, exact = TRUE,
# whichRows = c(1:40), conf.level = 0.95)
#print(test1)
#### zero corr by rows
#test2 <- eqCorTestByRows(EX2$D1, testStatistic = c("AS", "max"), nite = 1000,
# conf.level = 0.95)
#print(test2)
# }
Run the code above in your browser using DataLab