# 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