# NOT RUN {
set.seed(12345)
## Generate 5X2 random sample matrix from PSII(s=1) ##
PSII(n=5, p=2, s=1)
## Power calculation against bivariate (p=2) PSII(s=1) distribution ##
## at sample size n=50 at one-sided alpha = 0.05 ##
# Zhou-Shao's test #
power.mvnTest(a = 0.05, n = 50, p = 2, B = 100, FUN = PSII, s = 1)
# }
Run the code above in your browser using DataLab